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
|