I just realised that the post I was replying to a post from 2006 so what about to post and my last post may be irrelevant. Also instead of the input box for selecting the zip, use
FileSaveDialog("Create Zip File","","PK-Zip(*.zip)|All(*.*)",0,"New Compressed (zipped) Folder.zip")
It makes it a little more user friendly.