Zipping folders with vba (1 Viewer)

[yaya]

Hello,

I have a folder that at the root level contains both files as well as an images folder containing .jpg files. I was wondering if it were possible to use VBA to create a .zip file from that root folder. So far, I have only been able to create a new .zip file, and then add files to that .zip. I've had no luck be able to create the images subfolder.

Is this possible with VBA? I have searched many forums and have found the following code to be one of few that actually runs without throwing an error:

Sub AddFolderToZip(ZipFile As String, FolderToAdd As String)

Dim objShell As Object
Dim lngFilesAdded As Long
Dim strFile As String
Dim varZipFile As Variant

  Call InitializeZipFile(ZipFile) 'This Works

  Set objShell = _
    CreateObject("Shell.Application")

  varZipFile = ZipFile

  If Right$(FolderToAdd, 1) <> "\" Then
    FolderToAdd = FolderToAdd & "\"
  End If

  strFile = Dir(FolderToAdd & "*.*")

  Do While strFile <> ""
    
    'This doesnt capture the subfolder inside the folder to add
    objShell.Namespace(varZipFile).CopyHere (FolderToAdd & strFile)
    lngFilesAdded = lngFilesAdded + 1

    Do Until _
      objShell.Namespace(varZipFile).Items.Count >= lngFilesAdded
      Call Pause(1)
    Loop

    strFile = Dir()
  Loop
End Sub

 

[June7]

This works for me:

Sub CreateZipFile()
Dim folderToZipPath As Variant, zippedFileFullName As Variant
folderToZipPath = "C:\Photo"
zippedFileFullName = "C:\Users\June\Test.zip"
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 'copies only items within folder
ShellApp.Namespace(zippedFileFullName).CopyHere folderToZipPath 'copies folder and its contents

 

[MrHans]

Here is a link to an article by Gustav Brock, I didn't try it, but he writes very good code, so it should work.

https://www.experts-exchange.com/ar...olders-with-VBA-the-Windows-Explorer-way.html

 

[shadow9449]

This works for me:

Sub CreateZipFile()
Dim folderToZipPath As Variant, zippedFileFullName As Variant
folderToZipPath = "C:\Photo"
zippedFileFullName = "C:\Users\June\Test.zip"
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 'copies only items within folder
ShellApp.Namespace(zippedFileFullName).CopyHere folderToZipPath 'copies folder and its contents

Pretty awesome! I tried it and it works. Does anyone know if there's a way to alter the code to put a password on the zip archive?

 

[MrHans]

I only know how to do it with an external program called 7zip.

Here is some excellent code from Daniel Pineault:
https://www.devhut.net/2017/04/06/vba-zip-unzip-compress-extract/

 

[shadow9449]

I only know how to do it with an external program called 7zip.

Here is some excellent code from Daniel Pineault:
https://www.devhut.net/2017/04/06/vba-zip-unzip-compress-extract/

Ok, that's really cool! I've been using 7Zip for years to extract .rar files but I never knew you can use it with command line command! Awesome!

 

[June7]

If you do use another app to zip files, make sure users receiving your zip can still open it. IIRC, WindowsCompression can't open some compressed files, such as rar and 7zip.

 

[shadow9449]

If you do use another app to zip files, make sure users receiving your zip can still open it. IIRC, WindowsCompression can't open some compressed files, such as rar and 7zip.

Agreed but you can always zip it into a .zip

 

[Number11]

Does any one know how to change this code to only run if the folder contains files?

 

[theDBguy]

Does any one know how to change this code to only run if the folder contains files?

You can use the Dir() function to check for files.