Hi there Aaron
I tried this and it works - Thanks to eHow
- 1
- Click "Start", "All Programs", "Accessories", "Notepad" to open Windows Notepad.
- 2
- Copy and paste the following VBS code into the Notepad window:
Function Unzip(strFileName,strFolderName)Dim objshellDim objfso
' Create Shell.Application so we can use the CopyHere method
Set objshell = CreateObject("Shell.Application")
' Create FileSystemObject so we can use FolderExists and CreateFolder if necessary
Set objfso = CreateObject("Scripting.FileSystemObject")
' Create folder to receive files if it doesn' t already exist
If Not objfso.FolderExists(strFolderName) Then objfso.CreateFolder strFolderName
' Use CopyHere to extract files
objshell.NameSpace(strFolderName).CopyHere
objshell.NameSpace(strFileName).ItemsSet
objfso = NothingSet objshell = NothingEnd Function
'Put your own zip file name and folder name inside the quotes in the next line
Unzip "C:\Test\Test.zip","C:\Test\Testing"
- 3
- Edit the last line to substitute your own zip file name and folder name for the examples given inside the quotation marks. You can specify an existing folder or not. The script will create the folder if it doesn't already exist.
- 4
- Click "File", "Save As" to open the Save As dialog window. Type "extractzip.vbs" (without the quotes) in the "File Name" box. Select "All Files (*.*)" from the "Save As Type" drop-down. Click the "Save" button to save the new VBS file.
- 5
enter the following command in your Qlikview script editor:
execute cmd.exe /c "C:\Data\extractzip.vbs"
