Oops
You are using PKZIPC
I am not familiar with this program
--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2002 SP-2)
www.rondebruin.nl
"Ron de Bruin" wrote in message ...
See a example on my site Eric
I will release my new SendMail Add-in soon (this can zip also)
http://www.rondebruin.nl/sendmail.htm#Zip
--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2002 SP-2)
www.rondebruin.nl
"Eric" wrote in message ...
Hi There,
I am trying to create a vba macro to automatically zip my
all excel file with use of SHELL command in vba but I am
unsuccessful. Can anyone check my code and tell me what's
wrong with it. What it does I am trying to use the
current date as my zip filename. When I run it seems
nothing happened and gives no error.
Sub ZIPMYFILE()
TempoFileDIR = Format(now, "yyyymmdd_hhmmss")
Dim TodaysArchive As String
Dim aBatchCopy As String
TodaysArchive = iArchivePath & TempoFileDIR & ".zip"
& " " & cWorkingPath
aBatchCopy = ("cmd /c PKZIPC -add -
directories=relative " & TodaysArchive)
Call Shell(aBatchCopy, vbHide)
End sub
TIA
Eric