'Funktionen:
' - als Fotograf wird der Name eingetragen
' - ein Copyrightvermerk wird aus dem Bilddatum (Jahr) und dem Namen zusammengesetzt
' - falls von der Kamera unterstützt, wird das Bild Verlustfrei gedreht
' - Fehlender <FocalLength> Tag in den Exif Infos ergänzen
Dim Datei, Dateiname, Extension, Pfad, Datum, Hersteller, v1, v2, Make, imagecount
Dim Verzeichnis, Jahr, Monat, Tag, Orientation, Name, FocalLength, f1, f2, newFocalLength
imagecount = FF_GetImageCount
for i=0 to imagecount-1
Datei = FF_GetImageName(i)
SplitPath Datei, , Dateiname, Extension
if FF_LoadExif(Datei) then 'nur wenn auch Exif- Daten vorhanden sind weitermachen
Name = "S. Diefenbach"
if FF_GetExifTag("FocalLength") <> "" then
***
***else
***FF_SetExifTag "FocalLength", 0
***FocalLength = FF_GetExifTag("FocalLengthIn35mmFilm")
***f1 = (FocalLength / 4.86)
***f2 = split(f1, ",", -1)
***newFocalLength = f2(0) + "." + f2(1)
***FF_SetExifTag "FocalLength", newFocalLength
end if
Datum = FF_GetExifTag("DateTime")
if Datum = "" then Datum = FF_GetExifTag("DateTimeOriginal")
if Datum = "" then Datum = FF_GetExifTag("DateTimeDigitized")
if Datum = "" then Datum = Year(Now) 'wenn nichts anderes vorhanden ist, das aktuelle Jahr verwenden
v1 = split(Datum, " ", -1)
v2 = split(v1(0), ":", -1)
Jahr = v2(0)
Monat = v2(1)
Tag = v2(2)
FF_SetExifTag "Artist", Name
FF_SetExifTag "Copyright1","© " + Jahr + " " + Name
FF_SaveExif Datei
'Das Bild Verlustfrei Drehen um 90 oder 270 Grad (falls von der Kamera unterstützt)
Orientation = FF_GetExifTag("Orientation")
if Orientation <> "" then
'für die Kameras Casio QV4000 + QV5700
if Orientation = "8" then 'Kamera nach links gekippt -> Drehung von 270 Grad
FF_RotateFile Datei, 270
elseif Orientation = "6" then 'Kamera nach rechts gekippt -> Drehung von 90 Grad
FF_RotateFile Datei, 90
end if
end if
end if
next
'*********************************************************
' liefert Verzeichnis mit abschliessendem Backslash,
' Dateinamen und Erweiterung mit einleitendem Punkt
'*********************************************************
sub SplitPath(path, byref dirc, byref file, byref ext)
Set fso = CreateObject("Scripting.FileSystemObject")
dirc = fso.GetParentFolderName(path) & "\"
file = fso.GetBaseName(path)
ext = "." & fso.GetExtensionName(path)
set fso = nothing
End Sub
