Using Zip.exe within Access

K

kfschaefer

I am looking for a way to modify the final path of the zip do within the
extraction process.

I am a little confused is the target the file that has been zipped or is it
to be zipped and same for source?

Function zipfiles()
Dim source As String
Dim target As String

target = "\\Wabelhdk0215892\Intranet Information Server\CorePlan\Manual
PLANIT Forecast For Scrubbing.mdb"

source = "C:\Documents and Settings\Manual PLANIT Forecast For
Scrubbing.zip"
'source = "\\Wabelhdk0215892\Intranet Information Server\CorePlan\Manual
PLANIT Forecast For Scrubbing.mdb"
ShellWait "C:\temp\zip.exe -D """ & target & """ """ & source & """"
End Function


I am currently using zip.exe, due to the fact that is what my client is
currently using.

What I am trying to accomplish is zipping a mdb that is on a server (ie
target), however I would like the extracting file to contain the path of
source not the 'source. What is the process for limiting the file structure
of the zipped file.

My client will be using a dummy mdb to copy the newly zipped file to their
local pc and I do not want them to have to drill down thru several flle
levels to extract the mdb.
 
Top