Non capisce se esiste o no il file...
come mai???

xGallo

Ho fatto così:
If Dir(App.Path & "\disegni_pdf") <> "" Then
MsgBox "File già esistente!"
Else
retcode = ZpArchive(s, zipName, files)
End If


x Boromir

Il tuo invece mi dà errore quando faccio il nothing...

Grazie mille per l'aiuto