Declare Function GetDriveType Lib "kernel32 " Alias "GetDriveTypeA " (ByVal nDrive As String) As Long
Public Const DRIVE_CDROM = 5 Public Const DRIVE_FIXED = 3 Public Const DRIVE_RAMDISK = 6 Public Const DRIVE_REMOTE = 4 Public Const DRIVE_REMOVABLE = 2