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. Dim FName() Dim wsh,fs Set wsh = CreateObject("Wscript.Shell") Set fs = CreateObject("Scripting.FileSystemObject") fs.CreateFolder "Desktop\Web-Bilder" ' Set Args = WScript.Arguments For Each strArg in Args InFile = """" & strArg & """" OutFileName = fs.getBaseName(InFile) Command = "C:\Programme\ImageMagick-6.6.3-Q16\convert.exe " & InFile & " -resize 700 ""Desktop\Web-Bilder\" & OutFileName & ".jpg""" wsh.run command, 7, true next Edit:Wie ich gerade bemerkt habe, wird bei der Auswahl zu vieler Dateien (ca. 25) die Argumentenliste zu lang. Kann man das beheben?

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!