Using VBA to Unzip problem

[cstimart]

Hello,

Using this code I found on the www...

Function UnZip(strTargetPath As String, Fname As Variant)
Dim oApp As Object, FSOobj As Object
Dim FileNameFolder As Variant

If Right(strTargetPath, 1) <> Application.PathSeparator Then
    strTargetPath = strTargetPath & Application.PathSeparator
End If

FileNameFolder = strTargetPath
Set FSOobj = CreateObject("Scripting.FilesystemObject")

If FSOobj.FolderExists(FileNameFolder) = False Then
    FSOobj.CreateFolder FileNameFolder
End If

Set oApp = CreateObject("Shell.Application")
    oApp.Namespace(FileNameFolder).CopyHere oApp.Namespace(Fname).items

If Not oApp Is Nothing Then Set oApp = Nothing
If Not FSOobj Is Nothing Then Set FSOobj = Nothing
If Not FileNameFolder Is Nothing Then Set FileNameFolder = Nothing
End Function

...I am encountering issue where a zip file contains 1,800 pdfs, but the extract stops after less than 100.

Any ideas why that happens and/or how to resolve?

Thanks!

 

[cstimart]

To further explain, this extract has 1,800 pdfs and a csv file that contains information pertinent to those pdfs. I will be importing the csv data into a table and then moving the pdfs to a specified location further in the process.