Get File Macro

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