www.pc3enter.tk
دوشنبه 13 اردیبهشت 1395, 10:09 صبح
این هم نمونه کدش
Dim WshShell, fso, file
Set WshShell = WScript.CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
WshShell.Run("cmd for %i in (D:\Centers\CO022\Test\*.pdf) do ""C:\Program Files (x86)\A-PDF Rename\prncmd.exe"" %i ""[%Content_1% ] %Content_2% (%Content_P3%)"" -L""C:\Scripts\1.rul"",""C:\Scripts\2.rul"",""C:\Scripts\3.rul"" > ""C:\Scripts\CO022-RPL-Log.txt"""),1,false
wscript.quit
Dim WshShell, fso, file
Set WshShell = WScript.CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
WshShell.Run("cmd for %i in (D:\Centers\CO022\Test\*.pdf) do ""C:\Program Files (x86)\A-PDF Rename\prncmd.exe"" %i ""[%Content_1% ] %Content_2% (%Content_P3%)"" -L""C:\Scripts\1.rul"",""C:\Scripts\2.rul"",""C:\Scripts\3.rul"" > ""C:\Scripts\CO022-RPL-Log.txt"""),1,false
wscript.quit