Un saluto a tutti
Premetto che da files chiusi non si recupera un bel niente! Prima si aprono, anche in background, e poi si leggono.
Comunque, no, non hai sbagliato nulla (almeno credo).
Il fatto è che quando inserisci la chiavetta il sistema non dà sempre la stessa lettera, devi cercarla.
La seguente Function ti permette di conoscere la lettera che poi assegnerai al tuo (quello di @patel che saluto) codice.
Per sapere la lettera assegnata ad una chiavetta USB
Public Function f() As String
Dim objFSO As Object
Dim colDrives As Object
Dim objDrive As Object
f = "Nessun drive mobile"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set colDrives = objFSO.Drives
For Each objDrive In colDrives
If objDrive.IsReady = True Then
If objDrive.DriveType = 1 Then
f = objDrive.DriveLetter
End If
End If
Next
Set objDrive = Nothing
Set objFSO = Nothing
Set colDrives = Nothing
End Function
Da richiamare, ad esempio così:
Public Sub m()
MsgBox f
End Sub
oppure facendola scrivere in una cella vuota per poi recuperarla.
Fai sapere. Ciao,
Mario