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

کد این عمل

Set objShell = wscript.createObject("wscript.shell")
InstallPath = """C:Program Files (x86)7-Zip7z.exe"""
vTarget = "c:myfolderTest.7z"
vSource = "c:myfolderfoldertozip*.*"
objShell.Run InstallPath & " a -t7z -mx9 -r -y " & vTarget & " " & vSource