Auslesen der EXIF - Daten von Fotos mit VBS

[Power-Kiddy 10]

Hallo!

 

Ich würde gerne per VBS die Exif - Datien von Fotos auslesen und habe nur einen brauchbaren Script/Schnipsel gefunden:

 

Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.NameSpace("D:\Fotos")
Set objFoto = objFolder.ParseName("Foto.JPG")

For i = 0 To 30			
 Text = Text & CStr(i) & " " & objFolder.GetDetailsOf(objFoto, i) & vbNewLine
Next

MsgBox Text

 

Da gibt es ein paar Sachen:

- obwohl in den EXIF-Daten auch die Sekunden enthalten sind wird im Script nur Jahr, Monat, Tag, Stunden und Minute ausgebeben.

Die Sekunden fehlen.

 

- warum werden die Details über das Folder-Objekt (objFolder) abgerufen?

Kriege ich die Informationen auch direkt über das Foto selbst (objFoto)?

 

Danke!

Kiddy