![]() ![]() Obviously you, and anyone using your application, will need the add-on (& WinZip itself) to be able to use this. There are dozens of options available, see WZUNZIP reference, WinZip Command Line Support Add-On Help file. This example unzips files that meet *.MDB specification to same folder as Zip file, overwriting existing files if any (-o option) (otherwise you will have to respond to command line prompt). ShellExecute Application.hWndAccessApp, _ StrUnzipPath = Left$(strZipFile, InStrRev(strZipFile, “”,, vbBinar圜ompare) – 1) ‘ Unzip files in same folder as Zip file: StrAppPath = “C:Program FilesWinZipWZUNZIP.EXE” ‘ Use WinZip Command Line Support Add-On to unzip files: Public Sub TestUnzip(ByRef strZipFile As String) Private Declare Function ShellExecute Lib “shell32.dll” _ Example of using WinZip Command-Line add-in in VBA: ![]()
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |