home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2005 July / PCpro_2005_07.ISO / files / freeware / hardcopy / hcf.exe / basic / Basic_File_040_CopyTo.bas < prev    next >
Encoding:
BASIC Source File  |  2003-11-26  |  729 b   |  25 lines
  1. File.Find( "c:\\temp" + "\\hardcopy.log"  )
  2. If File.NumberOfFiles = 1 Then
  3.     Print "hardcopy.log is in c:\\temp available"
  4. Else
  5.     Print "hardcopy.log is in c:\\temp not available"
  6. EndIf
  7. Print
  8.  
  9. File.Find( File.CommonWindowsDirectory + "\\hardcopy.log"  )
  10. If File.NumberOfFiles = 1 Then
  11.     Print "hardcopy.log is in ", File.CommonWindowsDirectory, " available"
  12. Else
  13.     Print "hardcopy.log is in ", File.CommonWindowsDirectory, " not available"
  14. EndIf
  15.  
  16. error = File.CopyTo( "c:\\temp" + "\\hardcopy.log" )    ' <<<<<<<<<<<<<<<<<<<<<<<<<<<
  17. If error <> "" Then Print error
  18.  
  19. Print
  20. If File.NumberOfFiles = 1 Then
  21.     Print "hardcopy.log is in c:\\temp available"
  22. Else
  23.     Print "hardcopy.log is in c:\\temp not available"
  24. EndIf
  25.