Ciao..sarebbe più semplice usare un commondialog oppure un controllo drive, però se hai postato questa discussione significa che non puoi..
Ti propongo un metodo alquanto artigianale ma efficacie, in quanto ora non sono al computer di sempre e quindi quello ceh scrivo sono reminiscenze...
codice:
Dim Elenco As String, Drive As String
Elenco = "abcdefghilmnopqrstuvzwxyjk"
For i = 1 To Len(Elenco)
Drive = Mid(Elenco, i, 1)
Select Case GetDriveType(Drive & ":\")
Case 2
tipo = "Rimovibile"
MsgBox Drive & ":\"
Exit Sub 'oppure Exit for
Case 3
tipo = "Disco Fisso"
Case Is = 4
tipo = "Remoto"
Case Is = 5
tipo = "Cd-Rom"
Case Is = 6
tipo = "Disco Ram"
Case Else
tipo = "Non riconosciuto"
End Select
next i
Ti è chiaro a cosa avevo pensato? La chiave USB sicuramente verrà riconosciuta come drive rimovibile: nel caso in cui tu abbia più unità rimovibili, è chiaro che trova solo la prima..
fammi sapere..
ciao