Aufnahedatum jpg mit .getdetailsof

Forumthread: Aufnahedatum jpg mit .getdetailsof

26.05.2020 00:29:52

claudia

Hallo,
ichhabe einProgramm geschrieben, das mir rekursiv alle Ordner & Unterordner durchgeht & die Dateien in das Aufnahme.Datum umbenennt. Manchmal stht es in created, manchmal in lastmodified oder auch in lastacessed. (nehme einfach das kleinste, das passt schon. Jetzt bin ich jedoch auf mehrere Folder gestossen, wo all diese 3 Felder über den gesamten Folder einheitlich mit dem 7-12-2019 gefüllt ist, das aufnahmedatum (das auch im Explorer unter "Datum" angezeigt wird) zu verschiedenen Datenin in dem Vorjahren liegt. Habe mich ein bisschen schlau gemacht, dieses Datum lässt sich nicht so bequem wie die anderen extrhieren. sondern man muss dieerweiterten Dateiinfos auslesen. Geht anscheinend über .getdetailsof, mein Feld steht in POsition 12.
Habe es wohl etwas naiv rinfach so versucht:
test = oFolder.getdetailsof(oFile, 12)
Erhalte jedoch die Fehermeldung, dass das Objekt oder die Methode nicht unterstütz wird.
Weiss jemand, wie ich das Programm modifizieren müsste?
Herzlichen Dank,
Claudia
So sieht der ganze code aus:
Option Explicit
Option Compare Text
Private sRootPath As String
Private lRowCounter As Long
Private oSheet As Object
'Start der Routine: Call MWDateienMitUnterordnernAuslesen

Public Sub MWDateienMitUnterordnernAuslesen()
sRootPath = Range("Dateipfad").Value
Set oSheet = Sheets("pfad")
Call ReadSubFolder(sRootPath)
Set oSheet = Nothing
MsgBox "Done"
End Sub

Private Sub ReadSubFolder(ByVal sPath As String)
Dim oFSO As Object
Dim oFolder As Object
Dim oSubFolder As Object
Dim oSHELL As Object
Dim oFile As Object
Dim strEXT, neu, test As String
Dim objFolder As Object
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFolder = oFSO.getfolder(sPath)
For Each oSubFolder In oFolder.SubFolders
For Each oFile In oSubFolder.Files
test = oFolder.getdetailsof(oFile, 12)
strEXT = "." & oFSO.getextensionname(oFile)
If oFile.datecreated

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Aufnahedatum jpg mit .getdetailsof

26.05.2020 08:29:46

Martin
AW: Aufnahedatum jpg mit .getdetailsof

26.05.2020 14:46:39

volti
AW: Aufnahedatum jpg mit .getdetailsof

26.05.2020 20:01:38

volti

AW: Aufnahedatum jpg mit .getdetailsof

26.05.2020 08:29:46

Martin

Hallo Claudia,
getdetailsof ist keine Methode des FileSystemObject, sondern von Shell. Leider habe ich jetzt keine Zeit und kennzeichne den Beitrag deshalb als offen.
Hier ein kurzer Beispielcode:

Public Sub test()
Const STRFOLDER As String = "D:Eigene DateienEigene Excelbeispiele" 'Pfad anpassen
Dim objShell As Object, objFolder As Object
Dim bytIndex As Byte, intColumn As Integer, lngRow As Long
Dim varName, arrHeaders(37)
If Dir(STRFOLDER, 16) = "" Then
MsgBox "Der Ordner " & STRFOLDER & " wurde nicht gefunden!", 64, "Hinweis"
Exit Sub
End If
Application.ScreenUpdating = False
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(STRFOLDER)
intColumn = 1
For bytIndex = 0 To 37
arrHeaders(bytIndex) = objFolder.GetDetailsOf(varName, bytIndex)
Cells(1, intColumn + bytIndex) = arrHeaders(bytIndex)
Next
Rows(1).Font.Bold = True
lngRow = 2
For Each varName In objFolder.Items
For bytIndex = 0 To 37
Cells(lngRow, intColumn + bytIndex) = objFolder.GetDetailsOf(varName, bytIndex)
Next
lngRow = lngRow + 1
Next
Columns.AutoFit
Set objShell = Nothing
Set objFolder = Nothing
Application.ScreenUpdating = True
End Sub

Viele Grüße
Martin

AW: Aufnahedatum jpg mit .getdetailsof

26.05.2020 14:46:39

volti

Hallo Claudia,
teste mal den nachfolgend aufgeführten Erstversion-Code, der auch das Aufnahmedatum aus den Dateien extrahieren soll.
Ich hatte mich früher auch mal im Zuge meines Fototools damit auseinandergesetzt, über die getdetailsof-Funktion mein Aufnahmedatum und den Kameratyp zu ermitteln.
Leider wurde mir immer nur die Bezeichnung des Feldes, aber nie der Wert (also 'Aufnahmedatum' statt '01.01.2011 12:00") herausgegeben.
Ich hatte dann entnervt aufgegeben und das ganze zu Fuß ermittelt....
Dank Deiner Anfrage habe ich mich mal wieder etwas damit beschäftigt.
Übrigens ist nicht immer ein Aufnahmedatum oder die Kameraangabe in einer jpg-Datei vorhanden. Nach Bearbeitung so einer Datei kann das schon mal weg sein.
Auch muss der Type "Exif" vorhanden sein.
Darüber hinaus wundere ich mich, dass die getdetailsof-Funktion und auch die anderen Datum's offensichtlich keine Sekunden herausgeben, obwohl diese vorhanden sind.
Aber vielleicht reicht Dir dieses ja schon zum Weitermachen, oder ich habe was falsch gemacht.

Private Sub ReadSubFolder(ByVal sPath As String)

  Dim oFSO        As Object

  Dim oFolder     As Object

  Dim oSubFolder  As Object

  Dim oShell      As Object

  Dim oFile       As Object

  Dim strEXT, neu

  Dim sAufnahmedatum As String

  Dim objFolder   As Object

  Dim oFileItem   As Object

  Dim oFileFolder As Object

  Set oShell = CreateObject("Shell.Application")

  Set oFSO = CreateObject("Scripting.FileSystemObject")

  Set oFolder = oFSO.GetFolder(sPath)

  For Each oSubFolder In oFolder.SubFolders

      For Each oFile In oSubFolder.Files

'Aufnahmedatum extrahieren

          Set oFileFolder = oShell.Namespace(sPath & "&bsol;" & oSubFolder.Name)

          Set oFileItem = oFileFolder.ParseName(oFile.Name)

          sAufnahmedatum = oFileFolder.getdetailsof(oFileItem, 12)

          If Len(sAufnahmedatum) &GT; 1 Then

             sAufnahmedatum = Replace(sAufnahmedatum, Left$(sAufnahmedatum, 1), "")

             sAufnahmedatum = Left$(sAufnahmedatum, 11) & Right$(sAufnahmedatum, 5)

          End If

'Ende Aufnahmedatum extrahieren

          strEXT = "." & oFSO.getextensionname(oFile)

          If oFile.datecreated &LT; oFile.datelastmodified _

             And oFile.datecreated &LT; oFile.datelastmodified Then

                 neu = oSubFolder & "&bsol;" & Format(oFile.datecreated, "YYYYMMDD hhmmss") & strEXT

          Else

                 If oFile.datelastaccessed &LT; oFile.datelastmodified _

                    And oFile.datelastaccessed &LT; oFile.datecreated Then

                      neu = oSubFolder & "&bsol;" & Format(oFile.datelastaccessed, "YYYYMMDD hhmmss") & strEXT

                 Else

                      neu = Format(oFile.datelastmodified, "YYYYMMDD hhmmss")

                      neu = oSubFolder & "&bsol;" & Format(oFile.datelastmodified, "YYYYMMDD hhmmss") & strEXT

                 End If

          End If

'         On Error Resume Next

'         MsgBox oFile & " " & neu

          Name oFile As neu

          On Error GoTo 0

      Next oFile

'Alle Unterverzeichnisse verarbeiten (rekursiv)

      Call ReadSubFolder(oSubFolder.Path)

  Next oSubFolder

  Set oFSO = Nothing

  Set oFile = Nothing

  Set oFolder = Nothing

  Set oSubFolder = Nothing

 End Sub

viele Grüße
Karl-Heinz

AW: Aufnahedatum jpg mit .getdetailsof

26.05.2020 20:01:38

volti

Hallo Claudia,
hier ein Update....
Ich habe mir zwischenzeitlich eine Funktion gebastelt, der Du einfach Pfad und Dateinamen übergibst.
Da sind noch Kamera und Pixel drin, kann man ja rausnehmen. Wichtig ist nur, dass die Null-Zeichen, die bei Zahlenwerten mitkommen, ersetzt werden.
Bei Übernahme in ein Excelfeld macht das Excel wohl selbständig.
Könnte so in Deinem "alten" code aufgerufen werden (ungetestet)
test=GetFileDetails(sPath & "\" & oSubFolder.Name,oFile.name)

Dim sKamera As String, sPixel As String, sAufnahmedatum As String

Function GetFileDetails(sPath As String, sFile As String) As String

'Funktion ermittelt einige Datei-Parameter und bereinigt sie um unnötige Zeichen

 Dim oFile As Object, sFirma As String, T As String, i As Integer

 With CreateObject("Shell.Application").Namespace(CVar(sPath))

   Set oFile = .ParseName(sFile)

'32 Firma, 30=Kamera-Typ, 31=Auflösung, 12 Aufnahmedatum

   sFirma = .getdetailsof(oFile, 32)

   sKamera = .getdetailsof(oFile, 30)

   If Not sKamera Like Split(sFirma)(0) & "*" Then

      sKamera = sFirma & " " & sKamera

   End If

   sPixel = .getdetailsof(oFile, 31)

   sPixel = Mid$(sPixel, 2, Len(sPixel) - 2)

   T = .getdetailsof(oFile, 12)

   sAufnahmedatum = ""

   For i = 2 To Len(T)

    If Mid$(T, i, 1) &LT;&GT; Chr$(0) Then sAufnahmedatum = sAufnahmedatum & Mid$(T, i, 1)

   Next i

 End With

 GetFileDetails = sAufnahmedatum        'Aufnahmedatum zurückgeben

End Function

viele Grüße
Karl-Heinz

Infobox / Tutorial

Aufnahmedatum von JPG-Dateien mit .getdetailsof in Excel VBA extrahieren

Schritt-für-Schritt-Anleitung
Häufige Fehler und Lösungen
Alternative Methoden
Praktische Beispiele
Tipps für Profis
FAQ: Häufige Fragen

Schritt-für-Schritt-Anleitung

Vorbereitung: Stelle sicher, dass du Excel VBA verwendest, um die .getdetailsof-Methode zu implementieren. Diese Methode ist Teil der Shell-Anwendung und kann nicht direkt auf das FileSystemObject angewendet werden.

Code einfügen: Öffne den VBA-Editor (Alt + F11) und füge den folgenden Code in ein neues Modul ein:

Public Sub MWDateienMitUnterordnernAuslesen()
   Dim sRootPath As String
   sRootPath = Range("Dateipfad").Value
   Call ReadSubFolder(sRootPath)
   MsgBox "Done"
End Sub

Private Sub ReadSubFolder(ByVal sPath As String)
   Dim oShell As Object
   Dim oFSO As Object
   Dim oFolder As Object
   Dim oSubFolder As Object
   Dim oFile As Object
   Dim sAufnahmedatum As String

   Set oShell = CreateObject("Shell.Application")
   Set oFSO = CreateObject("Scripting.FileSystemObject")
   Set oFolder = oFSO.GetFolder(sPath)

   For Each oSubFolder In oFolder.SubFolders
       For Each oFile In oSubFolder.Files
           sAufnahmedatum = oShell.Namespace(oSubFolder.Path).GetDetailsOf(oShell.Namespace(oSubFolder.Path).ParseName(oFile.Name), 12)
           Debug.Print "Aufnahmedatum: " & sAufnahmedatum
       Next oFile
       Call ReadSubFolder(oSubFolder.Path)
   Next oSubFolder
End Sub

Anpassen des Pfades: Stelle sicher, dass der sRootPath korrekt auf den Ordner zeigt, den du durchsuchen möchtest.
Ausführen: Führe die MWDateienMitUnterordnernAuslesen-Subroutine aus, um die Aufnahmedaten der JPG-Dateien zu extrahieren.

Häufige Fehler und Lösungen

Fehler: "Objekt oder Methode nicht unterstützt"
Lösung: Überprüfe, ob du die .getdetailsof-Methode auf das richtige Objekt anwendest. Sie sollte auf das Namespace-Objekt der Shell angewendet werden, nicht auf das FileSystemObject.
Fehler: Aufnahmedatum wird nicht angezeigt
Lösung: Stelle sicher, dass das richtige Feld (Position 12) für das Aufnahmedatum verwendet wird. Überprüfe auch, ob die Dateien tatsächlich die benötigten Metadaten enthalten.

Alternative Methoden

Eine alternative Methode besteht darin, die GetFileDetails-Funktion zu verwenden, um gezielt Informationen aus den Metadaten einer Datei zu extrahieren. Hier ist ein Beispiel, wie du diese Funktion implementieren kannst:

Function GetFileDetails(sPath As String, sFile As String) As String
    Dim oShell As Object
    Set oShell = CreateObject("Shell.Application")
    Dim oFile As Object
    Set oFile = oShell.Namespace(sPath).ParseName(sFile)

    GetFileDetails = oShell.Namespace(sPath).GetDetailsOf(oFile, 12)
End Function

Diese Funktion kann dann in deinem Hauptcode aufgerufen werden, um das Aufnahmedatum zurückzugeben.

Praktische Beispiele

Hier ist ein Beispiel, wie du die GetFileDetails-Funktion in deinem Code verwenden kannst:

Dim aufnahmedatum As String
aufnahmedatum = GetFileDetails(oSubFolder.Path, oFile.Name)
Debug.Print "Aufnahmedatum: " & aufnahmedatum

Tipps für Profis

Nutze Debug.Print: Verwende Debug.Print, um die Ergebnisse während der Ausführung in das Direktfenster auszugeben. Dies hilft dir, den Ablauf und die Werte zu überwachen.
Fehlerbehandlung: Implementiere eine Fehlerbehandlung, um unerwartete Fehler zu erfassen und zu behandeln, z. B. durch Verwendung von On Error Resume Next.
Metadaten überprüfen: Achte darauf, dass die JPG-Dateien die notwendigen EXIF-Daten enthalten, andernfalls kann das Aufnahmedatum möglicherweise nicht extrahiert werden.

FAQ: Häufige Fragen

1. Warum kann ich die getdetailsof-Methode nicht verwenden?
Die Methode .getdetailsof gehört zum Shell-Objekt, nicht zum FileSystemObject. Stelle sicher, dass du das richtige Objekt verwendest.

2. Was mache ich, wenn das Aufnahmedatum fehlt?
Nicht alle JPG-Dateien enthalten EXIF-Daten. Überprüfe die Datei mit einem Metadaten-Viewer, um sicherzustellen, dass die Daten vorhanden sind.

3. Welche Excel-Version benötige ich?
Der Code sollte in Excel 2007 und späteren Versionen funktionieren, solange VBA unterstützt wird.

Beliebteste Forumthreads (12 Monate)

Aufnahedatum jpg mit .getdetailsof

Forumthread: Aufnahedatum jpg mit .getdetailsof

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Aufnahmedatum von JPG-Dateien mit .getdetailsof in Excel VBA extrahieren

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread