How to detect how many drives that a computer has ?

[Aaron Young]

In case in the true spirit of programming you're still interested in how you would have done it, here's an example I put together, just add a Listbox to a Form..

Private Declare Function GetLogicalDriveStrings Lib "kernel32" Alias "GetLogicalDriveStringsA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
Private Const DRIVE_CDROM = 5
Private Const DRIVE_FIXED = 3
Private Const DRIVE_RAMDISK = 6
Private Const DRIVE_REMOTE = 4
Private Const DRIVE_REMOVABLE = 2

Private Sub Form_Load()
    Dim sDrives As String
    Dim sDrive As String
    
    sDrives = Space(255)
    sDrives = Left$(sDrives, GetLogicalDriveStrings(255, sDrives))
    While Len(sDrives)
        sDrive = UCase(Left$(sDrives, 3) & Space(10))
        sDrives = Mid$(sDrives, 5)
        Select Case GetDriveType(Trim(sDrive))
        Case DRIVE_CDROM
            sDrive = sDrive & "CD-ROM"
        Case DRIVE_FIXED
            sDrive = sDrive & "HDD (Fixed)"
        Case DRIVE_RAMDISK
            sDrive = sDrive & "RAM Disk"
        Case DRIVE_REMOTE
            sDrive = sDrive & "Remote (Network)"
        Case DRIVE_REMOVABLE
            sDrive = sDrive & "Removable (Diskette)"
        Case Else
            sDrive = sDrive & "Unknown"
        End Select
        List1.AddItem sDrive
    Wend
End Sub

------------------
Aaron Young
Analyst Programmer
[email protected]
[email protected]