PDA

Vollständige Version anzeigen : Speicherdatum einer beliebigen Datei ermitteln


WalterX
08.11.2005, 16:49
Hallo,

mit dem Code Beispiel unter
http://www.herber.de/mailing/033698h.htm
und der kleinen Änderung
'.LastModified = msoLastModifiedLastMonth
.LastModified = msoLastModifiedAnyTime
.SearchSubFolders = Truekann man alle Dateien die sich in einem Ordner incl. aller Unterordner befinden
mit Pfadangabe in eine Excel-Tabelle schreiben.
Zusätzlich benötige ich zu den Dateinamen auch das Datum der letzten
Speicherung.

Wie lässt sich dieses Datum ermitteln ?

jinx
08.11.2005, 17:05
<font size="2" face="Century Gothic">Moin, WalterX,

das dürfte dann msoLastModified sein - oder über FSO:

Option Explicit

Sub DateiZugriffsInfoAnzeigen()
' Excel-CD 0681
' Verweis auf die "Microsoft Scripting Runtime" Library setzen.
Dim fso As Object
Dim FsoInfo As Object
Dim strMsg As String
Dim strMappe As String

strMappe = "F:\Neu010314\opr143A6.jpg"
Set fso = CreateObject("Scripting.FileSystemObject")
Set FsoInfo = fso.GetFile(strMappe)

strMsg = "Mappe: " & UCase(FsoInfo.Name) & vbLf & _
"Erstellt: " & FsoInfo.DateCreated & vbLf & _
"Letzter Zugriff: " & FsoInfo.DateLastAccessed & vbLf & _
"Letzte Änderung: " & FsoInfo.DateLastModified

MsgBox strMsg

Set FsoInfo = Nothing
Set fso = Nothing

End Sub
Oder Du nutzt die BuiltinDocumentProperties-Eigenschaft...</font>

WalterX
08.11.2005, 19:28
Hallo jinx,

vielen Dank das hilft mir zunächst mal weiter.

PS: Bevor ich das Rad neu erfinde.
Gab es hier in diesem Forum schon eine Diskussion bezüglich Datensicherung ?
Ich versuche mit VBA in Excel eine Backup-Funktion zu basteln mit der ich meinen
aktuellen Datenbestand mit einem bereits gesicherten älteren Datenbestand vergleichen
kann. Neue Dateien die in der alten Sicherung nicht existieren sollen der Sicherung
hinzugefügt werden. Alte Sicherungsdateien die inzwischen modifiziert sind sollen
mit den neueren gleichnamigen Dateien überschrieben werden.

jinx
09.11.2005, 04:57
<font size="2" face="Century Gothic">Moin, Wolfgang,

nein, das Teilgebiet wurde bisher meines Wissens noch nicht abgedeckt - das Thema Synchronisation ist auch in den Foren eher unter der gleichzeitigen Bearbeitung und dem Abgleich der Daten ein Begriff als unter dem Abgleich von zwei an unterschiedlichen Orten gespeicherten Beständen.</font>