Runtime error 91 when adding to Zip file.

[pingme89]

Sub CreateZipFile(folderToZipPath As Variant, zippedFileFullName As Variant)

Dim ShellApp As Object

'Create an empty zip file
Open zippedFileFullName For Output As #1
Print #1, Chr$(80) & Chr$(75) & Chr$(5) & Chr$(6) & String(18, 0)
Close #1

'Copy the files & folders into the zip file
Set ShellApp = CreateObject("Shell.Application")
ShellApp.Namespace(zippedFileFullName).CopyHere ShellApp.Namespace(folderToZipPath).Items

'Zipping the files may take a while, create loop to pause the macro until zipping has finished.
On Error Resume Next
Do Until ShellApp.Namespace(zippedFileFullName).Items.Count = ShellApp.Namespace(folderToZipPath).Items.Count
    Application.Wait (Now + TimeValue("0:00:01"))
Loop
On Error GoTo 0

End Sub

I am using the above code but I always get a Run-time Error 91 on this line of code: ShellApp.Namespace(zippedFileFullName).CopyHere ShellApp.Namespace(folderToZipPath).Items

The path is correct. And creating the Zip File works no problem. I just can't get it to add all files and subfolders into the Zip. Please help.

 

[NdNoviceHlp]

Hi pingme89. There's some zip code at this link that seems a bit different than what you have. HTH. Dave

VBA to Zip all Folders into files separately with same name

Hello everyone, I have searched the forum but cant seem to find exactly what I'm looking. I would like a VBA code that according the folder where excel file (VBA) is: - Will zip all folders (and it´s content) into zip files with the same names - Don´t want or need to choose names of the files...

www.mrexcel.com