Skip to content

Instantly share code, notes, and snippets.

@danwagnerco
danwagnerco / zip_folders_in_column.vb
Last active Jan 15, 2021
This script loops through a column and creates zip files for each folder listed using 7-Zip
View zip_folders_in_column.vb
Option Explicit
Public Sub ZipFoldersInColumn()
Dim wks As Worksheet
Dim lngIdx As Long, lngErrorCode
Dim strFullPath As String, strZipName As String, strEndFound As String, _
strCommand As String, strTargetDir As String
Dim blnEndFound As Boolean
Dim wsh As WshShell
Set wsh = New WshShell