' Rapid-Q by William Yu (c)1999-2000                                             .
' ================================================================================
' Upload_il_tuo_script_su_Rapidq.it

' Seleziona_il_drive

'Get drives



Declare Function GetLogicalDrives Lib "kernel32" Alias "GetLogicalDrives" () As Long

''bit 1=1 = A, Bit 2=1=B etc

Create form as qform

                create listbox as qlistbox:end create

end create



dim drives as string,p as short

drives=str$(GetLogicalDrives)

drives=convbase$(drives,10,2)



for p = len(drives)to 1 step -1

                if mid$(drives,p,1)="1" then listbox.additems chr$(65+len(drives)-p)   

next p

form.showmodal



' ===============================================================================
'                      2003 Holyguard.net - 2007_Abruzzoweb