topic Re: How to Export Multiple Zipped Files Using WinRAR in QlikView

How to Export Multiple Zipped Files Using WinRAR

Tue, 06 Jan 2015 09:30:09 GMT

How can I export multiple zipped files using WinRAR in QlikView..... Need help on this...

Re: How to Export Multiple Zipped Files Using WinRAR

Peter_Cammaert — Tue, 06 Jan 2015 09:34:30 GMT

Do you mean to export data from QlikView into QVD's or CSV files and compress them into a rar archive? From the Load script?

Peter

Re: How to Export Multiple Zipped Files Using WinRAR

Tue, 06 Jan 2015 09:43:28 GMT

Hi Peter .. thanks for the quick reply...

But I want to load data directly from ZIP file or something that can automatically extract CSV files from ZIP and store in a specific folder... So that I need not to manually export CSV from ZIP every time...

Hope I am able to explain my requirement....

Re: How to Export Multiple Zipped Files Using WinRAR

agomes1971 — Tue, 06 Jan 2015 10:08:05 GMT

Hi,

hope this helps...

Zipped Files as a Data Source?

Regards

André Gomes

Re: How to Export Multiple Zipped Files Using WinRAR

Tue, 06 Jan 2015 10:26:04 GMT

Hi Ande Gomes,

I have tried the below script but getting an Error....

--------------------------------------------------------------------------------------------

Error: Expected end of statement'....

Code: 800A0401

--------------------------------------------------------------------------------------------

Function Unzip(strFileName,strFolderName)Dim objshellDim objfso

Set objshell = CreateObject("Shell.Application")

Set objfso = CreateObject("Scripting.FileSystemObject")

If Not objfso.FolderExists(strFolderName) Then objfso.CreateFolder strFolderName

objshell.NameSpace(strFolderName).CopyHere

objshell.NameSpace(strFileName).ItemsSet

objfso = NothingSet objshell = NothingEnd Function

Unzip "C:\Users\Shailesh Kumar\Desktop\Test\UAE iAgentByApplicationState Dump - 2015-01-05.zip","C:\Users\Shailesh Kumar\Desktop\Test"

Re: How to Export Multiple Zipped Files Using WinRAR

Tue, 06 Jan 2015 10:30:08 GMT

this error is on Line: 1 and Char: 58

Re: How to Export Multiple Zipped Files Using WinRAR

agomes1971 — Tue, 06 Jan 2015 12:12:00 GMT

Try this

Function Unzip(strFileName,strFolderName)
Dim objshell
Dim objfso

Set objshell = CreateObject("Shell.Application")

Set objfso = CreateObject("Scripting.FileSystemObject")

If Not objfso.FolderExists(strFolderName) Then objfso.CreateFolder strFolderName

objshell.NameSpace(strFolderName).CopyHere

objshell.NameSpace(strFileName).ItemsSet

objfso = NothingSet objshell = NothingEnd Function

Unzip "C:\Users\Shailesh Kumar\Desktop\Test\UAE iAgentByApplicationState Dump - 2015-01-05.zip","C:\Users\Shailesh Kumar\Desktop\Test"

Re: How to Export Multiple Zipped Files Using WinRAR

Tue, 06 Jan 2015 12:49:07 GMT

thanks its working fine....

Re: How to Export Multiple Zipped Files Using WinRAR

agomes1971 — Tue, 06 Jan 2015 12:52:06 GMT

Great!!! 😉

Re: How to Export Multiple Zipped Files Using WinRAR

Anonymous — Tue, 06 Jan 2015 13:01:42 GMT

Try this

Sub TestRun()

'Change this as per your requirement

Call UnZip("folder to export the files","Zip file full path")

Call UnZip("D:\New\UNZIP", "D:\New Resume\fwd.zip")

End Sub

Sub UnZip(strTargetPath, Fname)

If Right(strTargetPath, 1) <> "\" Then

strTargetPath = strTargetPath & "\"

End If

FileNameFolder = strTargetPath

Set oApp = CreateObject("Shell.Application")

oApp.Namespace(FileNameFolder).CopyHere oApp.Namespace(Fname).items

End Sub

Regards

Harsha