home *** CD-ROM | disk | FTP | other *** search
/ PC User 2001 August / APC_Aug2001_CD2.iso / features / devtools / files / lb202win.exe / LB202W.EXE / DIR.BAS < prev    next >
Encoding:
BASIC Source File  |  2000-12-06  |  1.1 KB  |  46 lines
  1.  
  2.     'demonstrate the files command
  3.  
  4.     'first predimension the array we need
  5.     dim dir$(10,3)
  6.  
  7.     'now get the file info and stick it into the array
  8.     files "c:\", "*.*", dir$()
  9.  
  10.     'items in dir$(0,?) now have information we can use
  11.     qtyFiles = val(dir$(0, 0))
  12.     print qtyFiles; " files"
  13.     qtySubDirs = val(dir$(0, 1))
  14.     print qtySubDirs; " subdirectories"
  15.     print dir$(0, 2); dir$(0, 3)
  16.  
  17.     if qtyFiles = 0 then [printSubdirectoryInfo]
  18.  
  19.     'reformat the file information
  20.     for x = 1 to qtyFiles
  21.         dir$(x, 1) = right$("        " + dir$(x, 1), 9)
  22.     next x
  23.  
  24.     'now sort the files in the array
  25.     sort dir$(), 1, qtyFiles, 1
  26.  
  27.     'now print out the file information
  28.     for x =  qtyFiles to 1 step -1
  29.         print left$(dir$(x, 0) + "            ", 13) ; "  "; dir$(x, 1); "  "; dir$(x, 2)
  30.     next x
  31.  
  32. [printSubdirectoryInfo]
  33.  
  34.     print
  35.     print "Subdirectories:"
  36.     if qtySubDirs > 0 then
  37.         for x = qtyFiles + 1  to qtyFiles + qtySubDirs
  38.             print dir$(x, 1)
  39.         next x
  40.     else
  41.         print "No subdirectories."
  42.     end if
  43.  
  44.     end
  45.  
  46.