Run a Winzip self extracting file

[Sammy8932 via AccessMonster.com]

I used Winzip to zip up files that we need to send to many users in different
locations. The file created is an .exe file. These users do not have Winzip
installed on their computers. Is there a way to run this executable winzip
file on the users machine with VBA code?

Hopefully I've given you enough info.

Thanks in advance.

 

[Douglas J. Steele]

You should be able to use the Shell function to run it.

 

[Sammy8932 via AccessMonster.com]

You should be able to use the Shell function to run it.

I used Winzip to zip up files that we need to send to many users in
different

[quoted text clipped - 7 lines]

Thanks in advance.

Thanks for the reply Doug. I am using a Shell command to zip the files. If
the users had Winzip installed on their computers there would be no problem.
What I need to do is extract the files to different locations on the users PC
and I'm not sure how to do that. As far as passing in parameters and such.
Could you post some code on how to run the .exe file to extract specific
files to specific locations on a users PC?

Thanks!

 

[Sammy8932 via AccessMonster.com]

You should be able to use the Shell function to run it.

[quoted text clipped - 3 lines]
Thanks for the reply Doug. I am using a Shell command to zip the files. If
the users had Winzip installed on their computers there would be no problem.
What I need to do is extract the files to different locations on the users PC
and I'm not sure how to do that. As far as passing in parameters and such.
Could you post some code on how to run the .exe file to extract specific
files to specific locations on a users PC?

Thanks!

I figured it out.

I've created a self extracting zip file (which is an .exe file)

code:
Dim strFilePath As String
Dim strZipFileLocation As String
Dim strUnzipLocation As String
Dim strZipFile As String

strFilePath = GetDBPath

strZipFileLocation = LocateFile("wzipse32.exe")

strUnzipLocation = "C:\content"

strZipFile = strFilePath & "CMS_Data"

wkCmnd = "" & strZipFileLocation & " """ & strZipFile & """ " & " -y -
auto -d " & strUnzipLocation & ""
intZipVal = Shell(wkCmnd, vbMaximizedFocus)

And then just used the shell command to run that .exe file

 

[Albert D. Kallal]

I have a much cleaner solution here:

http://www.members.shaw.ca/AlbertKallal/zip/index.htm

The above accomplish several things:

** The zip code is in ms-access.

** you don't have to have WinZip on your computer....

So, no WinZip, or anything else need be installed on the target computer
(you do have to supply the two .dll into the same dir where the mdb/mde
resides..).

 

[Sammy8932 via AccessMonster.com]

I have a much cleaner solution here:

http://www.members.shaw.ca/AlbertKallal/zip/index.htm

The above accomplish several things:

** The zip code is in ms-access.

** you don't have to have WinZip on your computer....

So, no WinZip, or anything else need be installed on the target computer
(you do have to supply the two .dll into the same dir where the mdb/mde
resides..).

Thanks Albert! I'll check it out.