Click here to Skip to main content
15,886,032 members
Please Sign up or sign in to vote.
0.00/5 (No votes)
See more:
hi,

SQL
ATM041512-01 (d).ZIP
   •subfolder (DOC_ICD)
      •subfolder(DATA)
         •subfolder(001)
            •subfolder(A01)
               contains the zipped files


Above is the heirarchy of ATM041512-01 (d).ZIP and its sub folders.
The zipped files or docs that i need to extract is in the last subfolder.
How can i Do that?

Need Help.


Thank You so much in advance.
Posted
Comments
Maciej Los 3-May-12 4:02am    
Is it a programming question?
What have you done so far?
Tip: Download 7-zip command line version and try to use Shell function.
Alan Tuscano 3-May-12 4:17am    
I got the program running on testing because i'm using a single zipped folder, and contains all the records i need to validate.

but now, a new criteria was submitted, and inside the zipped folder, consists of sub folder and sub folder from the sub folder and then the record.

I'm using shell32 function to download the the zipped file,

1 solution

 
Share this answer
 
Comments
Alan Tuscano 3-May-12 22:02pm    
Hi Losmac,

Sub UnZip()
Dim sc As New Shell32.Shell()
Dim output As Shell32.Folder = sc.NameSpace("C:\eSOA\")
Dim input As Shell32.Folder = sc.NameSpace("c:\eSOA\")
output.CopyHere(input.Items, 4)

End Sub

JAN12_0131_rev.zip = 343,893 KB
PNB041512.zip = 3,011,109 KB

Above, i tested JAN12_0131_rev.zip and it extracted the file.
When i tested PNB041512.zip, did not extracted the file, Instead give this error "Object reference not set to an instance of an object."

Inside JAN12_0131_rev.zip contains .pdf files.
Inside PNB041512.zip contains sub folders.

What and where is the error? I Can't locate it? Please Help Me.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)



CodeProject, 20 Bay Street, 11th Floor Toronto, Ontario, Canada M5J 2N8 +1 (416) 849-8900