I would like to ZIP a file with VBA. The following code from Ron de Bruin:
http://www.rondebruin.nl/windowsxpzip.htmUnfortunately the following code doesn't work all right. I get an endless loop.
'Keep script waiting until Compressing is done
On Error Resume Next
Do Until oApp.NameSpace(FileNameZip
).items.Co
unt = I
Application.Wait (Now + TimeValue("0:00:01"))
Loop
In another thread a similar topic is shown:
http://www.experts-exchange.com/Software/Office_Productivity/Office_Suites/MS_Office/Excel/Q_21796030.htmlI have gone over this one and corrected my code accordingly.
In advance thank you very much for your help
reneleisibach
Start Free Trial