• Home
 · 
• Windows API Call/Explanation
 · 
• Driver enumeration example (A: REMOVEABLE C:FIXED D:CDROM ...)

Driver enumeration example (A: REMOVEABLE C:FIXED D:CDROM ...)

Driver enumeration example (A: REMOVEABLE C:FIXED D:CDROM ...)

API Declarations



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

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




Rate Driver enumeration example (A: REMOVEABLE C:FIXED D:CDROM ...)

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

    Dim i As Long, erg As Long
    
    For i = 0 To 25
        erg = GetDriveType(Chr$(Asc("A") + i) & ":")
        Select Case erg
            Case 2
                List1.AddItem Chr$(Asc("A") + i) & " REMOVEABLE"
            Case 3
                List1.AddItem Chr$(Asc("A") + i) & " FIXED"
            Case 4
                List1.AddItem Chr$(Asc("A") + i) & " NETWORK"
            Case 5
                List1.AddItem Chr$(Asc("A") + i) & " CDROM"
            Case 6
                List1.AddItem Chr$(Asc("A") + i) & " RAMDISK"
        End Select
    Next i
End Sub