Option Explicit
Private Declare Function GetDriveType Lib "kernel32" Alias _
"GetDriveTypeA" (ByVal sDrive As String) As Long
Private Function DriveType(sDrive As String) As String
Dim sDriveName As String
Const DRIVE_TYPE_UNDTERMINED = 0
Const DRIVE_ROOT_NOT_EXIST = 1
Const DRIVE_REMOVABLE = 2
Const DRIVE_FIXED = 3
Const DRIVE_REMOTE = 4
Const DRIVE_CDROM = 5
Const DRIVE_RAMDISK = 6
sDriveName = GetDriveType(sDrive & ":")
Select Case sDriveName
Case DRIVE_TYPE_UNDTERMINED
DriveType = "has not been recognized"
Case DRIVE_ROOT_NOT_EXIST
DriveType = "specified doesn't exist"
Case DRIVE_CDROM
DriveType = "is a CD-ROM drive."
Case DRIVE_FIXED
DriveType = "cannot be removed I.E. Hard Disk"
Case DRIVE_RAMDISK
DriveType = "is a RAM disk."
Case DRIVE_REMOTE
DriveType = "is a remote I.E Network drive."
Case DRIVE_REMOVABLE
DriveType = "can be removed I.E. Floppy Disk."
End Select
End Function
Private Sub Drive1_Change()
MsgBox "The Drive Type " & DriveType(Left(Drive1.Drive, 1))
End Sub