Solved: Accessing files inside a zip folder

[LLEW1]

Hi, looking for help on this - just need VB command lines to execute opening a zip file containing XML files, and move to a new folder location.

The context:
A compressed file containing XML files gets created by other processes. These are located on a shared network location.

I need to:
Access the compressed XML files, so I need get the zip file open or to access the XML files.

Im considering a proces of opening the zip file and placing all into a folder location - what is the best method for this or a better solution when dealing with a zip folder.

Any thoughts appreciated....

[Dave]

HTH. Dave
http://www.vbaexpress.com/forum/showthread.php?t=17357

[LLEW1]

Tks Dave - checking it out now....

[LLEW1]

Tks Dave - has helped but getting Expected Identifier error with code below...Im naming incorrectly?


[VBA]
Public Function UnZiptoNewDirectory("C:\TestUnpack.zip" As String, _
"C:\" As String, "TestUnpack.zip" As String)
'unzip folder/file to new directory
' UnZipThatFolder is zipped file name
'eg. Call UnZiptoNewDirectory("F", "C", "Testfolder")
'eg. Call UnZiptoNewDirectory("F", "C", "Test.doc")
Dim Ofsobj As Object, Temp2 As Object
Dim Drv As String, Foldername As String, EDrv As Variant
Drv = StartDrive & ":\" 'starting drive location
EDrv = EndDrive & ":\" 'ending drive location
Foldername = EDrv & UnZipThatFolder 'unzipped folder name
'if unzipped folder already exists then delete
On Error Resume Next
Set Ofsobj = CreateObject("Scripting.FileSystemObject")
Set Temp2 = Ofsobj.getfolder(Foldername)
If Temp2 <> "" Then
Ofsobj.deletefolder (Foldername), False
End If
'unzip file to new directory
Call Unzip(EDrv, Drv & UnZipThatFolder & ".zip")
Set Temp2 = Nothing
Set Ofsobj = Nothing
End Function [/VBA]

[Dave]

Please review the code/thread comments. Don't change the function...Call it. I'm guessing...
[vba]
Call UnZiptoNewDirectory("C", "C", "TestUnpack")
[/vba]
The "Unzip" sub is also critical. Dave
edit: code change

[LLEW1]

Hi Dave, used above.

have it working now. Thanks again.