DriveType constants

fordrs3 · June 21st, 2003, 02:04 PM

Can anyone tell me how to identify the type of drive a user may select from a drive box? i.e. c: = fixed, d: = removable, e:= cd etc?

The reason being is that dependant on what the user selects from a drive box on one of my forms, i want to know if there is going to be a problem, i.e. trying to write to a CD etc.

cheers

Regards

Russ (Programing on L plates..!)

stephanel · June 22nd, 2003, 08:23 AM

You can use the API function GetDriveType

Code:

Public Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long

Public Const DRIVE_UNKNOWN As Long = 1
Public Const DRIVE_REMOVABLE As Long = 2
Public Const DRIVE_FIXED As Long = 3
Public Const DRIVE_REMOTE As Long = 4
Public Const DRIVE_CDROM As Long = 5
Public Const DRIVE_RAMDISK As Long = 6


  Dim sMsg As String

  Select Case GetDriveType("c:")
    Case DRIVE_UNKNOWN
      sMsg = "The drive type cannot be determined"

    Case DRIVE_REMOVABLE
      sMsg = "The disk can be removed from the drive."

    Case DRIVE_FIXED
      sMsg = "The disk cannot be removed from the drive."

    Case DRIVE_REMOTE
      sMsg = "The drive is a remote (network) drive."

    Case DRIVE_CDROM
      sMsg = "The drive is a CD-ROM drive."

    Case DRIVE_RAMDISK
      sMsg = "The drive is a RAM disk."
  End Select