reorganized

scripts/close.vbs

@@ -0,0 +1,3 @@
+set App = CreateObject("Photoshop.Application")
+set Doc = App.activeDocument
+Doc.Close

scripts/dojs.vbs

@@ -0,0 +1,10 @@
+
+Dim app
+Set app = 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)
+end if

scripts/open.vbs

@@ -0,0 +1,9 @@
+' Open photoshop.
+Set app = CreateObject("Photoshop.Application")
+if WScript.Arguments.Count = 0 then
+    WScript.Echo "Missing parameters"
+else
+path = wScript.Arguments(0)
+Set doc = app.Open(path)
+wScript.echo doc.Name
+end if

scripts/quit.vbs

@@ -0,0 +1,8 @@
+' Close Photoshop
+Set appRef = CreateObject("Photoshop.Application")
+
+Do While appRef.Documents.Count > 0
+	appRef.ActiveDocument.Close(2)
+Loop
+
+appRef.Quit()

scripts/start.vbs

@@ -0,0 +1 @@
+set app = CreateObject("Photoshop.Application")

scripts/test.jsx

@@ -0,0 +1,11 @@
+var Path = arguments[0];
+alert(Path)
+var saveFile = File(Path + "/test.txt");
+
+if(saveFile.exists)
+    saveFile.remove();
+
+saveFile.encoding = "UTF8";
+saveFile.open("e", "TEXT", "????");
+saveFile.writeln("Testing...");
+saveFile.close();

scripts/test.txt

@@ -0,0 +1 @@
+Testing...

scripts/test.vbs

@@ -0,0 +1 @@
+wScript.echo "Testing..."