Running other application by code

[Guest_imported]

In Access Module I call a shell function to zip a file in my directory and I would like to know if somebody knows how can I know when the zip job was finish before making something else with the zip file

 

[DougP]

Are you using WinZIP?

http://www.winzip.com

here is some code I used to create a zip file
---------------------------------------------
Dim FileToSave As String, PriceList As String, ZipFileName As String

'save the Parts table as an HTML file
FileToSave = "X:\HTML\UniversalPrices" & Format(Now, "-mm-dd-yyyy&quot & ".htm"

'Launch WinZIP
Label1.Caption = "Launching WinZIP"
ZipFileName = "X:\HTML\UniPrices.ZIP"
Call Shell("c:\winzip\Winzip32.exe -a " & ZipFileName & " " & FileToSave, 1)

------------------------
Also this URL may help too.

http://www.winzip.com/faq.htm

DougP, MCP
dposton@universal1.com

Ask me how Bar-codes can help you be more productive.

 

[Guest_imported]

This the code that I'm using and my question is How can I make a "Wait" between the time the computer compress and the time that he create the EXE file?


'Copy the original database to my C drive
SourceFile = "R:\Redax PO\Redabck_be.mdb"
Destination = "C:\Temp\Redabck_be.mdb"
FileCopy SourceFile, Destination

'Launch Winzip ans zip the file
Call Shell("C:\Program Files\winzip\Winzip32 -min -a c:\temp\redabck_be.zip C:\Temp\Redabck_be.mdb&quot
SendKeys "{^} & A "

'Make an EXE file with the Db zip
Call Shell("C:\Pkware\Zip2exe.exe c:\temp\redabck_be.zip&quot