vbs für ImageMagick

[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!

[Cybquest]

Hallo und Willkommen,

ich kenne ImageMagick nicht, vermute aber, dass Du das über eine Option bei der convert.exe steuern kannst. Möglicherweise die, wo Du momentan "...Web-Bilder\file.jpg" stehen hast?

Per Script sähe ich nur die Möglichkeit, Convert innerhalb der Schleife für jedes Bild einzeln aufzurufen und die Datei hinterher jeweils umzubenennen.

[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?