Hello,
Using this code I found on the www...
...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!
Using this code I found on the www...
Code:
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!