Auflisten PDFs mit Änderungsdatum
29.08.2019 13:21:11
Christian
ich will alle PDFs aus einem Archiv-Ordner in meiner Excel auflisten lassen.
Hierbei soll der Name und das letzte Änderungsdatum aufgeführt werden.
Die Namen auflisten funktioniert soweit, aber die ausgelesenen Datenangaben sind völlig falsch.
Zur Überprüfung habe ich 2 verschiedene Methoden verwendet (objFile.dateLastModified
& FileDateTime(objFile.Path), welche aber jeweils zu dem gleichen Ergebnis führen.
Ich kann hier auch kein Muster erkennen, da die Abweichung +- 1 Tag bis zu 5 Monate beträgt. Die PDFs wurden tatsächlich alle im Zeitraum Ende Januar/Anfang Februar 2019 zuletzt bearbeitet.
Habe ich hier etwas grundlegend falsch gemacht, oder ist das Auslesen der Metadaten generell fehleranfällig?
Sub Archiv()
Dim objFSO As Object
Dim objFolder As Object
Dim objFile As Object
Dim j As long
Dim Path As String
With ThisWorkbook.Sheets("Archiv")
Path = "S:\Archiv\"
.Range("A:C").ClearContents
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(Path)
j = 2
For Each objFile In objFolder.Files
If objFile.name Like "*.pdf" And InStr(objFile.name, "~") = False Then
.Cells(j, 1) = objFile.name
.Cells(j, 2) = objFile.dateLastModified
.Cells(j, 3) = FileDateTime(objFile.Path)
j = j + 1
End If
Next objFile
End With
End Sub
