What are you looking to do with the drives? I looked around online a little bit and found this, I had to modify it to get it to work properly with access but it may give you some ideas at least.

Private Sub Command0_Click()
    Dim X As Object
    With CreateObject("Scripting.FileSystemObject")
        For Each X In .Drives
            If .FileExists(X.Path & "\Users\User\Downloads\inspections\inspections.accdb") Then
                Set GetDriveLocation = .GetFile(X.Path & "\Users\User\Downloads\inspections\inspections.accdb")
                MsgBox GetDriveLocation
            End If
        Next
    End With
End Sub

It will look for a certain file in all available drives then msgbox the file path on the drives that have the file there.

You could probably modify it further to only return the drive letter, and then use that for what you're trying to do? Just an idea.

I was just testing this some more. It's actually really simple

Private Sub Command0_Click()
    Dim X As Object
    With CreateObject("Scripting.FileSystemObject")
        For Each X In .Drives
            MsgBox X
        Next
    End With
End Sub

That will tell you all the drives on the machine.

Hi Adam,
Your code works as designed. Thanks, I am trying to append this list to a table and need your help again. I am getting a syntax error.
           DoCmd.RunSQL "INSERT INTO DrivesT ([DriveLetter]) Values(" & X & ")"  This code goes just before the Next

Can you show me what I am doing wrong?  Thanks  John

It's the dreaded double double quote, this works. Might want to wrap in warnings off too so you don't have to keep pushing yes.

DoCmd.SetWarnings False
DoCmd.RunSQL "INSERT INTO DrivesT ([DriveLetter]) Values(""" & X & """)"
DoCmd.SetWarnings True

Hi Adam
So right you are! You are great and I really appreciate all that you did. I am enclosing the completed code whic
created a table of all the drive letters. I have a combo box on a setup form so the user can pick the drive where
a backup is to be stored. Love it  Thanks   John

Private Sub Form_Open(Cancel As Integer)
  DoCmd.SetWarnings False
   DoCmd.RunSQL "DELETE DrivesT.* FROM DrivesT;"
   DoCmd.SetWarnings True

    Dim X As Object
    With CreateObject("Scripting.FileSystemObject")
        For Each X In .Drives
          'MsgBox X
          DoCmd.SetWarnings False
          DoCmd.RunSQL "INSERT INTO DrivesT ([DriveLetter]) Values(""" & X & """)"
          DoCmd.SetWarnings True
        Next
    End With
End Sub

Looks good, glad it works. This was something I didn't know you could do either until I played around with it so I learned something new too :).

Good job Adam  I learned too.  Yet another reason I love this community.

Good... now I don't have to cover this in D32. LOL

Seriously though... I've got all that coming up with FileSystemObject... drives on the PC, files in a folder, you name it.