olegischinski
-
Gesamte Inhalte
2 -
Registriert seit
-
Letzter Besuch
Beiträge erstellt von olegischinski
-
-
hallo an alle!
Folgendes Problem:
In einem Ordner soll eine beliebige Anzahl Bilder markiert werden, die dann über das Kontextmenü mit "Senden an" per Script an ImageMagick übergeben werden und konvertiert in einem Ordner auf dem Desktop landen sollen.
Dazu habe ich ein Code-Beispiel aus der Doku von IM leicht angepasst
Dim FName Dim wsh,fs Set wsh = CreateObject("Wscript.Shell") Set fs = CreateObject("Scripting.FileSystemObject") ' NArgs = WScript.Arguments.Count Redim FName(NArgs-1) strInputFiles = "" For i = 0 to NArgs - 1 FName(i) = """" & WScript.Arguments(i) & """" strInputFiles = strInputFiles & " " & FName(i) next ' fs.CreateFolder "Desktop\Web-Bilder" Command = "C:\Programme\ImageMagick-6.6.3-Q16\convert.exe " & strInputFiles & " -resize 700 ""Desktop\Web-Bilder\file.jpg""" wsh.run command, 7, true
Das klappt soweit auch, allerdings würde ich die Zieldateien auch gern wie die Ausgangsdateien benennen lassen.
Kann mir jemand helfen, wie das zu bewerkstelligen ist?
Vielen Dank im voraus!
vbs für ImageMagick
in Windows Forum — Scripting
Geschrieben · bearbeitet von olegischinski
hallo Frank,
besten Dank für den Hinweis (manchmal braucht's einen Anstoß, dass der Baum umfällt ;-) Ich hab den convert-Befehl jetzt in die Schleife gelegt, und alles läuft, wie gewünscht ... War ein schöner Denksport bei Vorkenntnis = 0.
Hier der Schnippel, falls das jemanden interessiert.
Edit:Wie ich gerade bemerkt habe, wird bei der Auswahl zu vieler Dateien (ca. 25) die Argumentenliste zu lang.
Kann man das beheben?