• Home
 · 
• Windows System Services
 · 
• Loop through all drives and determine type (hard disk, floppy, CDROM, network, etc)

Loop through all drives and determine type (hard disk, floppy, CDROM, network, etc)

Loop through all drives and determine type (hard disk, floppy, CDROM, network, etc)

API Declarations



Public Const DRIVE_CDROM = 5
Public Const DRIVE_FIXED = 3
Public Const DRIVE_RAMDISK = 6
Public Const DRIVE_REMOTE = 4
Public Const DRIVE_REMOVABLE = 2



Rate Loop through all drives and determine type (hard disk, floppy, CDROM, network, etc)

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

Dim strMessage As String
Dim intCnt As Integer

For intCnt = 65 To 86
    strDrive = Chr(intCnt)
    Select Case GetDriveType(strDrive + ":\")
           Case DRIVE_REMOVABLE
                rtn = "Floppy Drive"
           Case DRIVE_FIXED
                rtn = "Hard Drive"
           Case DRIVE_REMOTE
                rtn = "Network Drive"
           Case DRIVE_CDROM
                rtn = "CD-ROM Drive"
           Case DRIVE_RAMDISK
                rtn = "RAM Disk"
           Case Else
                rtn = ""
    End Select
    If rtn <> "" Then
        strMessage = strMessage & vbCrLf & "Drive " & strDrive & " is type: " & rtn
    End If
Next intCnt
MsgBox (strMessage)