How To Determine the Type of Drive Using Win32

      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