Buongiorno a tutti.
Ho un problema che non riesco a risolvere e gradirei, se possibile un vostro aiuto.
Con questo codice
Dim fs2, d2, dc2
Set fs2 = CreateObject(“Scripting.FileSystemObject”)
Set dc2 = fs2.Drives
For Each d2 In dc2
If d2.DriveType = 1 Then
On Error Resume Next
ActiveWorkbook.SaveCopyAs Filename:=d2 & “\DATI\Ricorsi.xls”
End If
Next
…..
riesco a salvare il file in un’altra unità di rete, a patto però che la cartella “DATI” già esista.
Se la cartella “DATI” non esiste, il codice va in Debug.
Vorrei inserire nel codice la condizione che il salvataggio deve avvenire solo se nell’unità di rete c’è questa cartella.
E’ possibile modificare il codice in tal senso?
Grazie.