
....
'Copia la cartella Dati nella Directory in base a quanto inserito in ValoreDir:
fso.CopyFolder ActiveWorkbook.Path & "Prova-backup", ValoreDir
Set fso = Nothing
MsgBox "I dati sono stati copiati con successo nella directory " & ValoreDir, vbInformation, "Creazione copia di Backup"
Exit Sub
End If
..... |
