Private Declare Function GetDriveTypeA Lib "kernel32" (ByVal nDrive As String) As Long
Private Enum DRIVE_TYPE
UNKNOWN = 0
DRIVE_NO_ROOT_DIR = 1
REMOVABLE = 2
FIXED = 3
REMOTE = 4
CDROM = 5
RAMDISK = 6
End Enum
Private Function GetDriveType(ByVal DriveLetter As String) As DRIVE_TYPE
DriveLetter = VBA.Trim$(DriveLetter)
If Not DriveLetter = vbNullString Then
DriveLetter = VBA.StrConv(VBA.Left$(DriveLetter, 1), vbUpperCase)
If DriveLetter Like "[A-Z]" Then GetDriveType = GetDriveTypeA(DriveLetter & ":\")
Else
GetDriveType = UNKNOWN
End If
End Function