home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / lb091.zip / DIR.BAS < prev    next >
BASIC Source File  |  1995-08-07  |  822b  |  38 lines
  1.  
  2.  
  3.     dim dir$(10,10)
  4.     files "c:\", dir$(
  5.     qtyFiles = val(dir$(0, 0))
  6.     print qtyFiles; " files"
  7.     qtySubDirs = val(dir$(0, 1))
  8.     print qtySubDirs; " subdirectories"
  9.     print dir$(0, 2); dir$(0, 3)
  10.  
  11.     for x = 1 to qtyFiles
  12.         dir$(x, 1) = right$("        " + dir$(x, 1), 9)
  13.     next x
  14.  
  15.     sort dir$(, 1, qtyFiles, 1
  16.  
  17.     open "dir.txt" for output as #dir
  18.  
  19.     for x =  qtyFiles to 1 step -1
  20.     print #dir, left$(dir$(x, 0) + "            ", 13) ; "  "; dir$(x, 1); "  "; dir$(x, 2)
  21.     next x
  22.  
  23.     print
  24.     print #dir, "Subdirectories:"
  25.     if qtySubDirs = 0 then [skipSubDirs]
  26.     for x = qtyFiles + 1  to qtyFiles + qtySubDirs
  27.         print #dir, dir$(x, 1)
  28.     next x
  29.  
  30. [skipSubDirs]
  31.  
  32.     close #dir
  33.     
  34.     notice "Directory info saved to dir.txt"
  35.  
  36.     end
  37.  
  38.