improved robustness

more tests added.
This commit is contained in:
Unknown
2018-02-05 15:50:56 -05:00
parent 39e09f9bce
commit fe871d48d6
5 changed files with 76 additions and 48 deletions

View File

@@ -1,10 +1,10 @@
Dim app
Set app = CreateObject("Photoshop.Application")
if WScript.Arguments.Count = 0 then
WScript.Echo "Missing parameters"
Dim appRef
Set appRef = CreateObject("Photoshop.Application")
if wScript.Arguments.Count = 0 then
wScript.Echo "Missing parameters"
else
path = wScript.Arguments(0)
folder = wScript.Arguments(1)
app.DoJavaScriptFile path, Array(Folder)
args = wScript.Arguments(1)
appRef.DoJavaScriptFile path, Split(args, ",")
end if