Boa noite!!

Os tais discos, seria diretórios?

Att

creio q seriam os drives:

C:
D:

etc...

Aqui tem alguma informação:
http://www.macoratti.net/vbn5_drv.htm

isso discos = drives=hd

Boa noite!!

Seria isso?

Sub AleVBA_11489()
    Dim Drive As Object, HardDrive$
    For Each Drive In CreateObject("Scripting.FileSystemObject").Drives
          If Drive.DriveType = 2 Then
                HardDrive = Drive
          End If
    Next
    MsgBox HardDrive
End Sub

Att

Porque só identificou o D: , tenho o C: e estou com 2 pen drives espetados aqui

Bom dia!!

tente

Sub AleVBA_11489V2()

    Dim Drive As Object, MyDrives As String
     
    For Each Drive In CreateObject("Scripting.FileSystemObject").Drives
        If Drive.DriveType > 1 Then
            MyDrives = Drive & vbNewLine & MyDrives
        End If
    Next
     
    MsgBox MyDrives
     
End Sub

Att