sto cercando di applicare, all'interno di FileSystemObject, l'esempio della Guida riguardo alla collezione Drives.
La prima cosa che noto é che, in barba a quello che mi hanno insegnato nei vari forum che frequento, questo compreso ovviam., giá a livello di dichiarazioni mettono tutto sotto un 'generico' Dim.. Quindi non ho ben capito come sono dichiarate le variabili.. sono io che non capisco?
Poi, quella che propongono come una Sub per avere il listato dei Drive presenti in un computer, immagino, mi restituisce l'errore 71 'Disco non pronto' (o qualcosa di simile visto che traduco dallo spagnolo).
Questo é il codice:
- Codice: Seleziona tutto
Sub ShowDriveList
Dim fs, d, dc, s, n
Set fs = CreateObject("Scripting.FileSystemObject")
Set dc = fs.Drives
For Each d in dc
s = s & d.DriveLetter & " - "
If d.DriveType = Remote Then
n = d.ShareName
Else
n = d.VolumeName
End If
s = s & n & vbCrLf
Next
MsgBox s
End Sub
L'errore lo ricevo sia su "n = d.ShareName" che su "n = d.VolumeName".
Potreste aiutarmi a capire il perché?
Premesso che passo un programma da me fatto ad un Cliente, vorrei verificare dal WorkBook_Open, in quale Drive si trova la cartella che lo contiene, quindi é per questo che vorrei ciclare tra i vari Drive presenti nel computer per vedere dove é stata messa la cartella, per poi effettuare altri controlli.
Grazie in anticipo