home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 November / CPNL0711.ISO / beeld / screen / hcf.exe / Basic / Basic_File_038_OnlyDirectories.bas < prev    next >
BASIC Source File  |  2003-11-26  |  360b  |  13 lines
  1. File.OnlyDirectories = TRUE
  2. File.SortOrder = _SortAscending
  3. File.Recursive = TRUE
  4. File.Limit = 20                                
  5. File.Find( "c:\\s*" )        ' all directories starting with 's'
  6.  
  7. Print "Number of Directories: ", File.NumberOfFiles     
  8. Print "Number of elements:    ", File.NumberOfElements    
  9. Print
  10. For i = 0 To File.NumberOfElements - 1
  11.     Print File( i ).Path
  12. Next
  13.