home *** CD-ROM | disk | FTP | other *** search
/ PC User 2001 August / APC_Aug2001_CD2.iso / features / devtools / files / lb202win.exe / LB202W.EXE / DRIVES.BAS < prev    next >
Encoding:
BASIC Source File  |  2000-12-06  |  628 b   |  22 lines
  1.  
  2.     'a simple example illustrating the use of the Drives$ variable
  3.     dim letters$(25)
  4.     index = 0
  5.     while word$(Drives$, index + 1) <> ""
  6.         letters$(index) = word$(Drives$, index + 1)
  7.         index = index + 1
  8.     wend
  9.     statictext #select, "Double-click to pick a drive:", 10, 10, 200, 20
  10.     listbox #select.list, letters$(, [selectionMade], 10, 35, 100, 150
  11.     open "Scan drive" for dialog as #select
  12.     print #select, "trapclose [quit]"
  13.     wait
  14.  
  15. [selectionMade]
  16.     print #select.list, "selection? whatsIt$"
  17.     notice "You selected drive "; whatsIt$
  18.  
  19. [quit]
  20.     close #select
  21.     end
  22.