home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2005 July / PCpro_2005_07.ISO / files / freeware / hardcopy / hcf.exe / basic / Basic_File_021_Recursive.bas < prev    next >
Encoding:
BASIC Source File  |  2003-11-26  |  201 b   |  9 lines
  1. File.Recursive = TRUE
  2. File.Find( File.CommonDocumentsDirectory + "\\*" )
  3.  
  4. Print "Number of files: ", File.NumberOfFiles 
  5. Print
  6. For i = 0 To File.NumberOfElements - 1
  7.     Print File( i ).Path
  8. Next
  9.