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

by Khaldoun Baz (12 Submissions)
Category: Windows API Call/Explanation
Compatability: Visual Basic 5.0
Difficulty: Unknown Difficulty
Originally Published: Tue 11^th November 2003
Date Added: Mon 8^th February 2021
Rating: (1 Votes)

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 ...)



    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

Download this snippet Add to My Saved Code

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

No comments have been posted about Driver enumeration example (A: REMOVEABLE C:FIXED D:CDROM ...). Why not be the first to post a comment about 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 ...) Comments

Post your comment

Difficulty