Get Drive Type

Private Declare Function GetDriveType Lib \"kernel32.dll\" Alias \"GetDriveTypeA\" (ByVal nDrive As String) As Long
Private Const DRIVE_UNKNOWN = 0
Private Const DRIVE_DOES_NOT_EXIST = 1
Private Const DRIVE_REMOVABLE = 2
Private Const DRIVE_FIXED = 3
Private Const DRIVE_REMOTE = 4
Private Const DRIVE_CDROM = 5
Private Const DRIVE_RAMDISK = 6
Private Sub Form_Load()
Select Case GetDriveType(\"C:\\\")
Case DRIVE_UNKNOWN
MsgBox \"Type Unknown\", vbExclamation
Case DRIVE_DOES_NOT_EXIST
MsgBox \"Type Unknown\", vbCritical
Case DRIVE_REMOVABLE
MsgBox \"The disk can be removed from the drive\", vbInformation
Case DRIVE_FIXED
MsgBox \"The disk can not be removed from the drive\", vbInformation
Case DRIVE_REMOTE
MsgBox \"The drive is a remote (network) drive\", vbInformation
Case DRIVE_CDROM
MsgBox \"The drive is a CD-ROM drive\", vbInformation
Case DRIVE_RAMDISK
MsgBox \"The drive is a RAM disk\", vbInformation
End Select
End
End Sub