I would like to ZIP a file with VBA. The following code from Ron de Bruin:
Unfortunately 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
unt = I
Application.Wait (Now + TimeValue("0:00:01"))
In another thread a similar topic is shown:
I have gone over this one and corrected my code accordingly.
In advance thank you very much for your help