home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 November / CPNL0711.ISO / beeld / screen / hcf.exe / Basic / Basic_File_034_Sort_Recursive_OnlyFiles.bas < prev    next >
BASIC Source File  |  2003-11-26  |  207b  |  8 lines
  1. File.Recursive = TRUE
  2. File.SortOnlyFiles = TRUE   
  3. File.SortOrder = _SortAscending
  4. File.Find( File.CommonDocumentsDirectory + "\\*" )
  5. For i = 0 To File.NumberOfElements - 1
  6.     Print File( i ).Path
  7. Next
  8.