Letztmaliges Öffnen einer Datei feststellen
31.03.2017 22:22:48
Florian
Ich habe ein kleines Problem mit VBA. Ich lasse per VBA Ordnerstrukturen einlesen, die mir dann in einer Tabelle angezeigt werden (also bspw. "C:\Users\fdamm"). Danach kommt eine Abfrage, ob die Ordner leer sind, die Möglichkeit die Ordner zu löschen und ein Hyperlink zu den Ordnern.
In jedem Ordner (sofern nicht leer) befinden sich unterschiedlich viele Dateien verschiedener Dateitypen. Ich wollte mir nun in zwei Spalten anzeigen lassen, wann letztmals in diesem Ordner eine Datei geöffnet und geändert wurde. Ich habe versucht, es anhand der Ordnerinformationen herauszulesen, allerdings wird mir da nur das Erstellungsdatum des Ordners angezeigt. Mein Code war folgender (langes rumprobieren...ohne Erfolg):
Sub last_access_modified()
Dim lngindex As Long
Dim pfad2 As String
Dim folder As Object
Dim fs As Object
Set fs = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
For lngindex = 10 To ActiveWorkbook.ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
pfad2 = Cells(lngindex, 1)
Set folder = fs.Getfolder(pfad2)
Cells(lngindex, 5) = folder.DateLastmodified
Cells(lngindex, 6) = folder.DateLastaccessed
Next lngindex
End Sub
Weiter bin ich leider echt nicht gekommen. Ich war nicht in der Lage es auf die Dateien in den Ordnern umzuändern. Was ich bräuchte wäre in etwa so (in Spalte A ist ja der komplette Ordnerpfad gegeben):
1) Gebe in Spalte E das Datum zurück, an dem das letzte Mal in diesem Ordner eine x-beliebige Datei geändert wurde.
2) Gebe in Spalte F das Datum zurück, an dem das letzte Mal in diesem Ordner eine x-beliebige Datei geöffnet wurde.
Im Anhang ist eine Beispieldatei: https://www.herber.de/bbs/user/112549.xlsx
Vielen Dank schon mal vorab!
Mit freundlichen Grüßen,
Florian