iyi günler
bunu buldum ama
nasıl uyarlayacağım

****************

Function Zip_Archive_File_7Zip()



Dim s7Zip, sZipFile, sFileToZip As String



sZipFile = "C:\TMA_Production_SQL\Outputs\TMA_Draft_Documents \xyz.zip"

sFileToZip = "C:\TMA_Production_SQL\Outputs\TMA_Draft_Documents \abc.doc"



s7Zip = "C:\Program Files\7-Zip\Command_Line\7za.exe" 'Location of the WinZip program



ShellWait s7Zip & " a -tzip """ & sZipFile & """ """ & sFileToZip & """, vbhide"



End Function