Auslesen von Dateiinformationen
28.07.2023 14:03:50
Patrick
ich muss aufgrund der Menge an Dateien in einem Ordner (nicht änderbar) Dateiinformationen abrufen (letzte Änderung Datum, letzte Änderung Uhrzeit, Größe der Datei (Analog Anzeige im Dateiexplorer) und Verlinkung zu dieser Datei) und in verschiedenen Zellen speichern.
Manches funktioniert schon, manches nicht.
Was ich bisher habe:
Sub Dateiinformationen()
Dim strFile As String
Dim objFSO As Object, objF As Object
Dim saveDate As Date
strFile = Application.GetOpenFilename("PDF (*.pdf)," & _
"*.pdf")
If strFile = "Falsch" Then Exit Sub
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objF = objFSO.GetFile(strFile)
saveDate = objF.DateLastModified
Cells(Range("A1").SpecialCells(XlCellType.xlCellTypeLastCell).Row, "E").Value = Format(saveDate, "dd.MM.yyyy")
Cells(Range("A1").SpecialCells(XlCellType.xlCellTypeLastCell).Row, "F").Value = Format(saveDate, "hh:mm")
Cells(Range("A1").SpecialCells(XlCellType.xlCellTypeLastCell).Row, "G").Value = Format$(FileLen(objF) / 1024, "0.00")
ActiveSheet.Hyperlinks.Add Anchor:=Cells(Range("A1").SpecialCells(XlCellType.xlCellTypeLastCell).Row, "D"), Address:= _
objF, TextToDisplay:=GP
Set objF = Nothing
Set objFSO = Nothing
End SubHiervon funktioniert das Abrufen der letzten Bearbeitung (Datum und Uhrzeit), sowie an sich auch der Abruf der Dateigröße. Hier jedoch wird eine andere als im Dateieplorer angezeigt, es wird scheinbar anders berechnet.
Nun meine Fragen:
Wie kann ich die KB-Größe der pdf-Datei korrekt abrufen, damit das selbe Ergebnis wie im Dateiexplorer angezeigt wird?
Wie kann ich aus der Variable strFile, in der ja der Link zur Datei sein müsste, einen Link erstellen?
Danke für jede Idee!
Gruß
Patrick