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
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