Così:
Public Function SalvaFolder()
On Error GoTo Errore:
Set FSO = New FileSystemObject
FSO.CopyFolder xPathOrigine, xPathDestinazione
Set FSO = Nothing
Exit Function
Errore:
SalvaFolder = xConferma
End Function
Così:
Public Function SalvaFolder()
On Error GoTo Errore:
Set FSO = New FileSystemObject
FSO.CopyFolder xPathOrigine, xPathDestinazione
Set FSO = Nothing
Exit Function
Errore:
SalvaFolder = xConferma
End Function
La passera non dura perchè Sypher la cattura!
"No one like us we don't care, we are millwall, super millwall, we are millwall from the DEN"
Permessi di invio
Rispondi quotando