Set objTarget = objShell.NameSpace(outFolder) Set objSource = objShell.NameSpace(strZipFile).Items() Set objShell = CreateObject( "Shell.Application" ) WScript.Echo ( "Extracting file " & strFileZIP) 'The folder the contents should be extracted to. SCurPath = CreateObject("Scripting.FileSystemObject").GetAbsolutePathName(".") REM CurDir = WshShell.ExpandEnvironmentStrings("%%cd%%") REM Set WshShell = CreateObject("Wscript.Shell") I put an example on my blog on how to unzip a file using a batch file: ' j_unzip.vbs This way it does not require need of third party applications, just the one batch file that does everything. I've done it in the past for numerous tasks. Then pipe out the script from within your batch file and then call it. Firstly, write an unzip utility using vbscript to trigger the native unzip functionality in Windows.
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |