PDA

View Full Version : Solved: Shell Winzip Error



pundabuyer
11-07-2008, 06:57 AM
Hi guys, any ideas why the following code gives the following error?


Dim WinZip, ZipFile, ZipFileName, FileToZip As String

WinZip = "C:\Program Files\WinZip\WinZip32.exe"

ZipFileName = Left(File, InStr(1, File, ".", vbTextCompare) - 1) & ".zip"
ZipFile = """" & "C:\temp\" & ZipFileName & """"
FileToZip = """" & FilePath & File & """"

Call Shell(WinZip & " -a " & " -s" & PassWord() & " " & ZipFile & " " & FileToZip & " -ycaes256", vbHide)

EventPause (2)

>>>>>>>>>> ERROR >>>>>>>>>>>>

Action: Add (and replace) files Include subfolders: yes Save full path: no
Warning: no files were found for this pattern that match your selection criteria: -ycaes256
updating qry_daily_leads_ACV.xls
replacing old Zip file

Demosthine
11-08-2008, 09:35 PM
Evening Again.

Since I am working from most recent posts to oldest, I ran across this after your other post. It would appear you've already solved this based on your other thread. Please mark as Solved using the Thread Tools.

Thanks.
Scott