Hi
frogtie,
zum Schreiben der Meta-Daten würde ich ein externes Kommandozeilenprogramm verwenden.
Eventuell geht es auch mit einem EXIF Plugin (TotalCmd.net)
Für deine Zwecke könntest du mal dieses VBS Skript austesten.
# Lade dir ExifTool by Phil Harvey herunter und entpacke es:
http://www.sno.phy.queensu.ca/~phil/exiftool/
# Speichere mein Skript als Name.vbs
# Ziehe es auf die Buttonbar vom TC.
# Passe diesen neuen Button an:
'//'CMD = D:\rive\path\to\this\name.vbs
'//'PARAM = "%L"
'//'PATH =
'//'ICON = C:\Windows\System32\WScript.exe
'//'TOOLTIP = Schreibe Dateinamen als META COMMENT.
'//'[X] Als Symbol (minimiert)
# Erstelle ein Backup deiner Dateien.
# Selektiere eine oder ein paar Dateien zum testen.
# Klicke auf den Button und warte auf die "Done!" Nachricht.
Fertig.
Code: Select all
'//'V B S S c r i p t for Total Commander:
'//'Purpose: In selektierte(n) Datei(en) den Dateinamen als META COMMENT schreiben.
'//'Stefan, v00.1, 2015-11-18
'//'Found at: http://ghisler.ch/board/viewtopic.php?t=43064
'//'- Datei(en) markieren (vorher Backup erstellen)
'//'- Skript ausführen, auf DONE! Message warten.
'// --------------------------------------------
'//'T C B U T T O N:
'//'CMD = D:\rive\path\to\this\name.vbs (use %Commander_Path%\ to be portable)
'//'PARAM = "%L" (in button dialog press F1 key for more help)
'//'PATH =
'//'ICON = C:\Windows\System32\WScript.exe
'//'TOOLTIP = Schreibe Dateinamen als META COMMENT.
'//'[X] Als Symbol (minimiert)
'// --------------------------------------------
'//'S C R I P T S E T T I N G S:
On Error Resume Next
Set FSO = CreateObject("Scripting.FileSystemObject")
Set WSO = Wscript.CreateObject("WScript.Shell")
TCPath = WSO.ExpandEnvironmentStrings("%Commander_Path%")
'// --------------------------------------------
'//'U S E R S E T T I N G S:
'// ExifTool by Phil Harvey
'// Read, Write and Edit Meta Information!
'// http://www.sno.phy.queensu.ca/~phil/exiftool/
'//Download this tool, unpack it, adjust the following path to the executable:
ToolPath = TCPATH & "\TOOLs\Graphic\Exiftool L e e r zeichen\exiftool.exe"
'// --------------------------------------------
'//'T H E S C R I P T:
Const FORREADING = 1
sTCtempList = Wscript.arguments.Item(0) ' The TC temp file due the "%L" parameter
If FSO.FileExists(sTCtempList) Then
Set oTextStream = FSO.OpenTextFile(sTCtempList,FORREADING)
Do Until oTextStream.AtEndOfStream
vFullName = oTextStream.ReadLine
Set oFile = FSO.GetFile(vFullName)
vName = FSO.GetFileName(oFile)
'// Phil Harvey ExifTool commands:
'// -overwrite_original
'// Overwrite the original *FILE* (instead of preserving it by adding
'// "_original" to the file name) when writing information to an image.
'// Caution: This option should only be used if you already have
'// separate backup copies of your image files.
'// -delete_original[!]
'// Delete "_original" backups
'//origin command: exiftool.exe -comment="Turmfalke.jpg" Turmfalke.jpg
'//Execute command:
'WSO.RUN chr(34)& ToolPath &chr(34)& " -overwrite_original -comment=" _
WSO.RUN chr(34)& ToolPath &chr(34)& " -comment=" _
&chr(34)& vName &chr(34)&" " _
&chr(34)& vFullName &chr(34),0,True
'//--------
Loop
oTextStream.Close
MsgBox "Done!"
Else
MsgBox "Input file sTCtempList %L% not found."
End If
'// --------------------------------------------
'//EOF
HTH?
