home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a067 / 1.img / GRUMP501.EXE / RANDFILE.PRG < prev    next >
Encoding:
Text File  |  1990-10-23  |  787 b   |  29 lines
  1. /*
  2.     Program: RANDFILE()
  3.     System: GRUMPFISH LIBRARY
  4.     Author: Greg Lief
  5.     Copyright (c) 1988-89, Greg Lief
  6.     Clipper 5.0 version
  7.     Compile instructions: clipper randfile /n/w/a
  8.  
  9.     Returns a random file handle - great for creating temporary
  10.     files in multi-user systems
  11.  
  12.     Syntax:  RandFile(<filename>)
  13.  
  14.     Parameter: <filename> = character string representing name
  15.                             of existing .dbf (MUST EXIST ALREADY!!)
  16.  
  17.     Returns: character string representing random filename
  18. */
  19. function RandFile(mfile)
  20. do while file(mfile + '.dbf')
  21.    mfile := "$$$" + ltrim(str(gfrand(99998) + 1))
  22. enddo
  23. return mfile
  24.  
  25. * end function RandFile()
  26. *--------------------------------------------------------------------*
  27.  
  28. * eof randfile.prg
  29.