S
stormystormy
Hallo
Habe mal da ne Frage
Ist es möglich ein Javascript in VBScript umzuschreiben?
Denke mal schon wenn man beide Sprachen draufhat
oder wie muss ich es anstellen dass ich dieses Script verwenden kann
Verstehe leider kein Java aber Vb geht
Hoffe mir kann wieder mal wer auf die Sprünge helfen!
Danke
Roland
Hier das Script
Habe mal da ne Frage
Ist es möglich ein Javascript in VBScript umzuschreiben?
Denke mal schon wenn man beide Sprachen draufhat
oder wie muss ich es anstellen dass ich dieses Script verwenden kann
Verstehe leider kein Java aber Vb geht
Hoffe mir kann wieder mal wer auf die Sprünge helfen!
Danke
Roland
Hier das Script
PHP:
/************************************************************\
* Image resizer by Lawrence Elliott June 2003 *
* Script to resize an image to x pixels longest side. *
* This can be used to resize pictures for a web site *
* or to create thumbnails. *
* Email laurie@softell.co.uk *
\************************************************************/
function allFiles(dir, action) {
var myfiles = dir.getFiles();
var current; // reference to current file
for (var i=0; i<myfiles.length; i++) {
current = myfiles[i];
// alert(current.fsName);
if (current instanceof Folder) {
allFiles(new Folder(current.fsName), action);
} else {
action(current);
}
}
}
function resizeToJPEG(fileref) {
var myJPEG = new JPEGSaveOptions();
myJPEG.quality =10;
myJPEG.formatOptions = FormatOptions.STANDARDBASELINE;
preferences.rulerUnits = Units.PIXELS;
var doc = open(fileref);
var x=(fileref.absoluteURI.lastIndexOf('.'));
var y=(fileref.absoluteURI.substring(0,x));
if (doc.width > doc.height) {
//Landscape
doc.resizeImage((500 ),( 500 * doc.height /doc.width));
} else {
// Portrait
doc.resizeImage(( 500 * doc.width /doc.height), ( 500 ));
}
var myFile = new File(y + "_small.jpg");
doc.saveAs(myFile, myJPEG);
doc.close(SaveOptions.DONOTSAVECHANGES);
}
var dirname = new Folder("C:/temp/");
allFiles(dirname, resizeToJPEG);
Zuletzt bearbeitet von einem Moderator:
