Re: Enquiry for Ron de Bruin

Thank you, Ron. I was thinking that MoveHere might be a possibility, but
haven't had the time to test it. If that works, then I can use wait until
count = count + extracted files.

Something like:

a = oApp.NameSpace(FileNameZip).items.Count
b = oApp.NameSpace(FolderName).items.Count
Do Until a = a + b
Application.Wait (Now + TimeValue("0:00:01"))
Loop

--
Ian
--
"Ron de Bruin" <rondebruin@xxxxxxxxxxxx> wrote in message
news:%23cCBDqzxIHA.4952@xxxxxxxxxxxxxxxxxxxxxxx
Btw: You can move it

oApp.Namespace(FileNameFolder).MoveHere
oApp.Namespace(fname).Items.Item("ron.xlsm")

I will try to delete it in a zip file this evening

--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Ron de Bruin" <rondebruin@xxxxxxxxxxxx> wrote in message
news:uLCfLkzxIHA.5620@xxxxxxxxxxxxxxxxxxxxxxx
I will play with it this evening and see if I can find a way

If you unzip first then you can do what you want but in the zip it is
diffecult I think ?

Unzip
Do what you want in the normal folder
Zip it again


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"IanC" <me@xxxxxx> wrote in message
news:qRV1k.70796$SA7.41401@xxxxxxxxxxxxxxxx
Thanks, Ron. I'm afraid I'm using the Windows XP zip facility. I may be
able to persuade my employer to buy a copy of WinZip, but that still
doesn't really get round the issue of the time involved (which could be
considerable) and the dangers that introduces.

I think in this case I'll have to settle for some manual intervention.
If only I could delete the extracted file from the zip (this doesn't
appear to be possible with Windows zip), then I could probably look to
see if the file exists in the zip instead of counting the files.

Thanks for your help.

--
Ian
--
"Ron de Bruin" <rondebruin@xxxxxxxxxxxx> wrote in message
news:O5ZeALzxIHA.548@xxxxxxxxxxxxxxxxxxxxxxx
1: The WinZip code on my site can do that (see the parameters link)

But you can Delete the zip first before you create it with the VBA Kill
command

2 : If you use WinZip I have code on my site that give you more control

See the note on the page

Warning :
It is not possible to hide the copy dialog when you copy to a zip
folder (only working with normal folders).
Also there is no possibility to avoid that someone can cancel the
CopyHere operation or that your VBA code will be notified that the
operation has been cancelled.



--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"IanC" <me@xxxxxx> wrote in message
news:lcV1k.133588$UP6.75632@xxxxxxxxxxxxxxxx
Hi Ron

Many thanks for your help with unzipping a file with VBA. I now how 2
problems with zipping. I'm using your "Sub Zip_All_Files_in_Folder()"
routine to zip a file to a zip which already contains a copy of the
file.

1. I'm prompted that the zip already contains a copy of the file. Can
I automatically overwrite the existing file without the prompt
appearing?

2. Having asked for the file to be replaced, the code moves on to the
Do...Loop and hangs up. I see now that this is because the code is
waiting until the number of files in the zip matches the number in the
folder. This will never happen as there's only 1 file in the folder
and more than that in the zip.
Is there any way to detect that the compression is complete, rather
than counting files? The only alternative I can see is to extract all
the files, delete the zip, replace the file I need to, then recreate
the zip.

As this is to be done over a VPN connection, the time involved and the
chances of a problem with the connection increases greatly.

--
Ian
--




.