Seleziona il tipo di drive
' Get drivetypes
$option dim byte
Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA"_
(ByVal nDrive As String) As Long
HomeDir$ = CurDir$
Drive$ = LEFT$(HomeDir$,3)
DRIVE_UNKNOWN = 0
DRIVE_NO_ROOT_DIR = 1
DRIVE_REMOVABLE = 2
DRIVE_FIXED = 3
DRIVE_REMOTE = 4
DRIVE_CDROM = 5
DRIVE_RAMDISK = 6
DriveType = GetDriveType(Drive$)
SELECT CASE DriveType
CASE 0
DriveType$ = "DRIVE_UNKNOWN"
CASE 1
DriveType$ = "DRIVE_NO_ROOT_DIR"
CASE 2
DriveType$ = "DRIVE_REMOVABLE"
CASE 3
DriveType$ = "DRIVE_FIXED"
CASE 4
DriveType$ = "DRIVE_REMOTE"
CASE 5
DriveType$ = "DRIVE_CDROM"
CASE 6
DriveType$ = "DRIVE_RAMDISK"
CASE ELSE
'' No conditions satisfied, do stuff
END SELECT
dim Form AS QFORM
dim label AS QLABEL
label.parent = Form
label.caption = "Current drive: " + DriveType$
Form.ShowModal
|