www.pc3enter.tk
دوشنبه 13 اردیبهشت 1395, 10:16 صبح
کد این (http://www.tek-tips.com/viewthread.cfm?qid=1737563) عمل
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
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