Valid Drives

[CSagan]

Is there a way to find out how many drives a PC has?
ie:
a:,b:,c:,d:,e:

[wey97]

Use the DriveListBox control.

[CSagan]

is there a way to do it with an API?

[wey97]

Declare Function GetLogicalDrives Lib "kernel32.dll" () As Long

Dim driveflags As Long  ' receives the flags identifying valid drives

' Tell the user which drives exist on the computer.  Note how this example
' only checks up to drive D:, but it does establish the necessary pattern to use in general.
Dim driveflags As Long  ' receives the flags identifying valid drives

driveflags = GetLogicalDrives()
' Test the returned value to see if drives A: through D: exist.
If (driveflags And 1) = 1 Then Debug.Print "Drive A: exists."
If (driveflags And 2) = 2 Then Debug.Print "Drive B: exists."
If (driveflags And 4) = 4 Then Debug.Print "Drive C: exists."
If (driveflags And 8) = 8 Then Debug.Print "Drive D: exists."

[Jeff Carlin]

You can use the following API and routine to check for the existence and type of each drive:

API:

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

Calling Code:

For i = 65 to 90
   x$=GetDrive(Chr(i))
   Debug.Print x$
Next i

Routine:

Public Function GetDrive(sDrive As String) As String

    On Error GoTo Error_Handler:

' This routine calls the API GetDriveType. That routine will return
' a long value that equates to a description as shown.
' Sample Call: GetDrive "C"
    
    Select Case GetDriveType(sDrive & ":\")
        Case 2
            GetDrive = "Removable"
        Case 3
            GetDrive = "Drive Fixed"
        Case 4
            GetDrive = "Remote"
        Case 5
            GetDrive = "Cd-Rom"
        Case 6
            GetDrive = "Ram disk"
        Case Else
            GetDrive = "Unrecognized"
    End Select
End Function

[Edited by Jeff Carlin on 11-18-2000 at 11:43 AM]