home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1996 February / PCWK0296.iso / sharewar / win31x / program / liberty / examples.shr / DRIVES.BAS < prev    next >
Encoding:
BASIC Source File  |  1995-02-20  |  498 b   |  20 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.  
  10.     statictext #select, "Double-click to pick a drive:", 10, 10, 200, 20
  11.     listbox #select.list, letters$(, [selectionMade], 10, 35, 100, 150
  12.     open "Scan drive" for dialog as #select
  13.  
  14.     input r$
  15.  
  16. [selectionMade]
  17.  
  18.     close #select
  19.     end
  20.