Originariamente inviato da ghiboz
On Error GoTo ERRORE
fsr.CopyFile "pippo.zip", sDestinazione

ERRORE:
Err.Description & vbCrLf

ma mi dice solo file not found
codice:
On Error GoTo ERRORE
File = "pippo.zip"
fsr.CopyFile File, sDestinazione

Exit Sub

ERRORE:
Err.Description & ": " & File & vbCrLf