home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 November / CPNL0711.ISO / beeld / screen / hcf.exe / Basic / Basic_File_041_CreateDirectoryByCopyTo.bas < prev    next >
BASIC Source File  |  2003-11-26  |  711b  |  23 lines
  1. File.Recursive = TRUE
  2. fromDir = File.CommonProgramDirectory + "\\hardcopy"
  3. toDir   = File.CommonTempDirectory
  4. File.Find( fromDir + "\\*1.jpg" )
  5. For i = 0 To File.NumberOfElements - 1
  6.     copyto = toDir + Mid( File( i ).Path, Len( fromDir ),999)
  7.     Print "from: ", File( i ).Path
  8.     Print "  to: ", copyto
  9.     error = File( i ).CopyTo( copyto )
  10.     Print "      ", error
  11. Next
  12.  
  13. Print "With CreateDirectoryByCopyTo:"
  14. File.CreateDirectoryByCopyTo = TRUE
  15. File.Find( fromDir + "\\*1.jpg" )
  16. For i = 0 To File.NumberOfElements - 1
  17.     copyto = toDir + Mid( File( i ).Path, Len( fromDir ),999)
  18.     Print "from: ", File( i ).Path
  19.     Print "  to: ", copyto
  20.     error = File( i ).CopyTo( copyto )
  21.     Print "      ", error
  22. Next
  23.