Bildnummerierung

Wenn man mehrere Bilder gleich benennen und mit einer fortlaufenden Nummer versehen will, eignet sich dazu hervorragend die Stapelverarbeitung von FixFoto.
Soll dies innerhalb einer Bearbeitung mehrerer Bilder per Skript erfolgen, wird hier beispielhaft gezeigt, wie diese Aufgabe per Skript gelöst werden kann.

Es wird ein Bildername "NameNeu" festgelegt und der Ordner "Zielordner" abgefragt, in dem die nummerierten Bilder gespeichert werden sollen. Da in diesem Ordner bereits nummerierte Bilder mit dem neuen Namen abgelegt sein können, wird ermittelt, welche höchste Nummer dort existiert. Diese höchste Nummer, sie kann auch 0 sein, wird bei der danach folgende Benennung und Nummerierung berücksichtigt.

Option Explicit

const NameNeu = "Muster"                                    'neuen Bildnamen festlegen
Dim Abbruch : Abbruch = false

Dim fso : Set fso = CreateObject("Scripting.FileSystemObject")
Dim Bilder,Zielordner,k

call main
if not Abbruch then
    k = Bild_Max(Zielordner,NameNeu & "_")                  'Korrekturwert für die Bildnummer
    call B_Nummerierung                                     'Bildnummerierung
end if

Set fso = Nothing
'-------------------------------------------------------------------------------------------------------
sub main

Bilder = FF_GetSelection(1)                        '0 = alle Dateien der Computeransicht
                                                   '1 = alle selektierten Dateien der Computeransicht
                                                   '2 = alle Dateien der aktuellen Bilderliste
                                                   '3 = alle selektierten Dateien der aktuellen Bilderliste
if len(Bilder) = 0 then
    msgbox "Es wurden keine Bilder ausgewählt!",vbInformation,"Abbruch"
    Abbruch = true
    exit sub
end if

do                                                   'Zielordner abfragen
    FF_SetCurrentPath FF_GetImagePath
    Zielordner = FF_EnterPath(false,"Ordner auswählen!")
    if Zielordner <> "" then exit do
loop

end sub
'-------------------------------------------------------------------------------------------------------
Function Bild_Max(OrdnerAngabe,FilterAngabe)        'maximale Bildnummer ermitteln
Dim f,f1,fc,MBild,pos

Set f = fso.GetFolder(OrdnerAngabe)
Set fc = f.Files

For Each f1 in fc
    if instr(f1.Name,FilterAngabe) = 1 then
        if f1.Name > MBild then MBild = f1.Name
    end if
Next

if MBild = "" then
        Bild_Max = 0
else
    pos = InStrRev(MBild,"_")
    if pos > 0 then    Bild_Max = mid(MBild,pos+1,4) else Bild_Max = 0
    if IsNumeric(Bild_Max) then Bild_Max = Bild_Max *1 else k = 0
end if

Set f = nothing
Set fc = nothing

End Function
'-------------------------------------------------------------------------------------------------------
sub B_Nummerierung                            'ausgewählte Bilder nummerieren
Dim Array,b,extension,suffix

Array = split(Bilder, vbNewLine)

for b = 0 to ubound(Array)                        'Bilder mit neuem Namen und fortlaufender
    FF_LoadImage(Array(b))                        '    Nummerierung abspeichern
    extension = "." & fso.GetExtensionName(Array(b))

    suffix = b +1 +k
    do while len(suffix) < 4 : suffix = "0" & suffix : loop            'len(suffix) < 4, wenn Nummerierung 4-stellig

    FF_SaveImage Zielordner & "\" & NameNeu & "_" & suffix & extension,0
next

end sub
'-------------------------------------------------------------------------------------------------------