home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 November / CPNL0711.ISO / beeld / screen / hcf.exe / Basic / Basic_File_020_With_Directories.bas < prev    next >
BASIC Source File  |  2003-11-26  |  287b  |  11 lines
  1. File.WithDirectories = TRUE
  2. File.Find( "c:\\*" )
  3.  
  4. Print "Number of files: ", File.NumberOfFiles 
  5. Print
  6. For i = 0 To File.NumberOfElements - 1
  7.     If File( i ).IsDirectory = TRUE  Then flag = "+ "
  8.     If File( i ).IsDirectory = FALSE Then flag = "  "
  9.     Print flag, File( i ).Path
  10. Next
  11.