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

' 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



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