Ausgabe von letztem Speicherdatum etc.
23.06.2014 17:39:29
letztem
im Rahmen meiner Diplomarbeit zum Thema Wissensmanagement würde ich gerne ein Makro erstellen, welches mir verschiedene Informationen verschiedener Dateien auflistet.
Bei den Dateien handelt es sich jedoch sowohl um Excel- als auch um Word-Dateien.
Das Auslesen von Dateiname und -pfad ist kein Problem. Schwieriger gestaltet es sich allerdings bei Ersteller bzw. Autor, letztem Zugriffsdatum und letztem Speicher- bzw. Aktualisierungsdatum.
Mein Code sieht bisher folgendermaßen aus:
Private Sub CommandButton1_Click()
Dim Blatt As Worksheet
Dim Pfad As String
Dim DatNam As String
Dim i As Integer
Set Blatt = ThisWorkbook.Worksheets("Tabelle1")
Pfad = "D:\Diplomarbeit\Dokumentation CR-Intern\Sonstiges\"
DatNam = Dir(Pfad)
With Blatt
i = 4
Do While DatNam ""
.Cells(i, 1) = DatNam
.Cells(i, 2) = Pfad
'.Cells(i,3) = Autor/Ersteller der Datei auslesen
'.Cells(i, 4) = Datum des letzten Zugriffs auslesen
'.Cells(i, 5) = Datum der letzten Aktualisierung/Änderung/Speicherung auslesen
i = i + 1
DatNam = Dir
Loop
End With
End Sub
Über Tipps und Hilfe bzgl. meines Problems wäre ich sehr dankbar.
MfG
Volker
Anzeige