Zip کردن و unzip کردن یک فایل با 7-Zip به وسیله VbScript

[www.pc3enter.tk]

کد این عمل

Set objShell = wscript.createObject("wscript.shell")

InstallPath = """C:\Program Files (x86)\7-Zip\7z.exe"""

vTarget = "c:\myfolder\Test.7z"

vSource = "c:\myfolder\foldertozip\*.*"



objShell.Run InstallPath & " a -t7z -mx9 -r -y " & vTarget & " " & vSource