FWIW, I've modified the line that was failing with this:

oApp.Namespace(TEMP_FOLDER).CopyHere objFile

It's now working. It's a mystery why it was failing, as the code was
working originally.

Thanks anyway, Ron.

Paul


On Nov 17, 11:28*am, Paul Martin wrote:
Hi Ron, code is below

Paul

Private Sub LoopThruFileItems(ByVal varZipFullPath As Variant)
' From a zip file, extract required data from multiple file items
* * Dim oApp As Object
* * Dim objFile As Object
* * Dim strCSVFullPath As String

* * Set oApp = CreateObject("Shell.Application")
* * TEMP_FOLDER = Environ("USERPROFILE") & "\Desktop\TEMP\"

* * For Each objFile In oApp.Namespace(varZipFullPath).Items
* * * * If Left(objFile.Name, 6) = "int140" Then
* * * * * * oApp.Namespace(TEMP_FOLDER).CopyHere _
* * * * * * * *oApp.Namespace(varZipFullPath).Items.Item(objFile .Name)

* * * * * * ' Now I work with the file in the temp folder
* * * * End If
* * Next objFile
End Sub

On Nov 17, 9:22*am, "Ron de Bruin" wrote:

Hi Paul

Post more of your code please so we can see more aboy objFile

--

Regards Ron de Bruinhttp://www.rondebruin.nl/tips.htm

"Paul Martin" wrote in ...
I've successfully used Ron de Bruin's useful code for extracting a
file item from a zip file (www.rondebruin.nl/windowsxpunzip.htm).

Now, for completely unknown reasons, the code is failing.

oApp.Namespace(TEMP_FOLDER).CopyHere _
* * * * * * * oApp.Namespace(varZipFullPath).Items.Item
(objFile.Name)

When this line of code executes, I get a Windows error (not a VBA
error) saying "the file exists." *when the temp folder is in fact
empty. Even if I delete the temp folder and create a new one, this
error message appears. *It has me perplexed, as it previously worked
without any such issue.

Any suggestions?

Paul Martin
Melbourne, Australia