gerwed.blogg.se

StrZipFileLocation = LocateFile("wzunzip.exe") StrZipFile = strFilePath & "CMS_Data.exe" WkCmnd = "" & strZipFileLocation & " """ & strZipFile & """ " & " -y -auto -d " & strUnzipLocation & "" StrZipFileLocation = LocateFile("wzipse32.exe") WkCmnd = "" & strZipFileLocation & " -u" & " """ & strZipFile & """ """ & strContentFolder & """" IntZipVal = Shell(wkCmnd, vbMaximizedFocus) WkCmnd = "" & strZipFileLocation & " -a" & " """ & strZipFile & """ """ & strScriptsFile & """" StrZipFileLocation = LocateFile("wzzip.exe") StrContentFolder = strFilePath & "content\*.*" StrZipFile = strFilePath & "CMS_Data.zip" I just have to figure out how to avoid the prompt that comes up asking whether to overwrite the existing file as we will run this twice a week and don't plan on deleting the original file.Ĭode to zip files CMS.xls and files in Content folder WkCmnd = "" & strZipFileLocation & " """ & strZipFile & """ " & " -d " & strUnzipLocation & ""Ĭ:\Program Files\WinZip Self-Extractor\wzipse32.exe "C:\cms\Desktop\Cont_DB_Testing_Folder\Bryce App\CMS_Data" -d C:\content I'm getting an error saying: "zip file name already specified - "" -d C:\content"" ignored! Here's how it reads out in the Immediate window.Ĭ:\Program Files\WinZip Self-Extractor\wzipse32.exe "C:\cms\Desktop\Cont_DB_Testing_Folder\Bryce App\CMS_Data.zip" " -d C:\content" StrUnzipLocation = " -d C:\content" (The default "Unzip To" folder) StrZipFile = "C:\cms\Desktop\Cont_DB_Testing_Folder\Bryce App\CMS_Data.zip" StrZipFileLocation = C:\Program Files\WinZip Self-Extractor\wzipse32 WkCmnd = "" & strZipFileLocation & " """ & strZipFile & """ """ & " -d " & strUnzipLocation & """" Here's what I have so far but I still can't get it to work. I think I'm getting close to what you're talking about. A Shell command can be used to run the exe, to extract to the predetermined locations. This is all part of your Zipping procedure. As I recall, you can create a self extracting exe file with WinZip, which will extract to locations you determine.