mirror of
https://github.com/sbrow/ps.git
synced 2025-12-29 18:47:38 -05:00
improved robustness
more tests added.
This commit is contained in:
@@ -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
|
||||
Reference in New Issue
Block a user