home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / msdos / clipper / nannws33.arc / COPYFILE.PRG < prev    next >
Encoding:
Text File  |  1988-11-01  |  1.1 KB  |  51 lines
  1. * Function: Filecopy()
  2. * Author:   Don L. Powells
  3. * Version:  Clipper Summer '87
  4. * Note(s):  Copy specified file to target disk.
  5. *
  6. * Copyright (c) 1988 Nantucket Corp.
  7.  
  8. FUNCTION Filecopy
  9. PARAMETERS mfile, mdrive2
  10. mtarget = mdrive2 + mfile
  11. @ 24,0
  12. IF Diskspace(Disknum(SUBSTR(mdrive2,1,1))) >= Filesize(mfile)
  13.    @ 24,0 SAY "Copying " + TRIM(mfile) + " to " + mdrive2 + "..."
  14.    COPY FILE &mfile. TO (mtarget)
  15.    @ 24,0
  16. ELSE
  17.    @ 24,0 SAY "Not enough space for file. " +;
  18.               "<ESC> to abort or any key to continue copying."
  19.    mkey = INKEY(0)
  20.    @ 24,0
  21.    IF mkey = 27
  22.       BREAK
  23.    ELSE
  24.       @ 24,0 SAY "Copying " + TRIM(mfile) + " to " +;
  25.          mdrive2 + "..."
  26.       COPY FILE &mfile. TO (mtarget)
  27.       @ 24,0
  28.    ENDIF
  29. ENDIF
  30. RETURN(.T.)
  31.  
  32.  
  33. * Disknum()
  34. * Converts a disk drive letter into an integer.
  35. *
  36. FUNCTION Disknum
  37. PARAMETERS mletter
  38. mletter = UPPER(mletter)
  39. RETURN(AT(mletter,"ABCDEFGHIJKLMNOPQRSTUVWXYZ"))
  40.  
  41.  
  42. * Filesize()
  43. * Return the size of specified file in bytes.
  44. *
  45. FUNCTION Filesize
  46. PARAMETERS mfile2
  47. PRIVATE sizearray[1]
  48. AFILL(sizearray,0)
  49. msize = ADIR(mfile2,.F.,sizearray)
  50. RETURN(sizearray[1])
  51.