To get you started...
Code
Sub ZipTest()
Dim vFileName As Variant
Dim objShell As Object, vPath As Variant
vFileName = "C:\Temp\Test.zip" 'Name of zip file to create
vPath = "C:\Temp\Files2Zip\" 'Folder holding the files to zip
Open vFileName For Output As #1
Print #1, Chr$(80) & Chr$(75) & Chr$(5) & Chr$(6) & String(18, 0)
Close #1
'Code to transfer selected files to vPath
Set objShell = CreateObject("Shell.Application")
objShell.Namespace(vFileName).CopyHere objShell.Namespace(vPath).items
Set objShell = Nothing
End Sub
Display More