ich habe ein mehreren Verzeichnissen jweils sich ändernde Dateien liegen (Auswertungsfiles, dia automatisch generiert werden). Bei jeder Auswertung wird eine Datei namens lastrun.txt neu angelegt. Deren Änderungsdatum+Zeit gibt an, wenn die letzte Auswertung lief.
Nun träume ich davon, mir ein Excel oder Starcalc- Datenblatt zu basteln, wo ich mit einem Knopfdruck die Änderungsdaten aller Verzeichnisse holen kann. Aus gegebenen Grunde wäre es das einfachste dazu das Änderungsdatum+Zeit der lastrun.txt auszulesen.
Ist der Traum mit Bordmitteln realisierbar ?
ich habe ein mehreren Verzeichnissen jweils sich ändernde
Dateien liegen (Auswertungsfiles, dia automatisch generiert
werden). Bei jeder Auswertung wird eine Datei namens
lastrun.txt neu angelegt. Deren Änderungsdatum+Zeit gibt an,
wenn die letzte Auswertung lief.
Nun träume ich davon, mir ein Excel oder Starcalc- Datenblatt
zu basteln, wo ich mit einem Knopfdruck die Änderungsdaten
aller Verzeichnisse holen kann. Aus gegebenen Grunde wäre es
das einfachste dazu das Änderungsdatum+Zeit der lastrun.txt
auszulesen.
Ist der Traum mit Bordmitteln realisierbar ?
Servus Marco
Dein Traum kann mit einem Makro in Excel wahr werden!
Probier mal das folgende aus, wobei du natürlich die Verzeichnisnamen an deine Gegebenheiten anpassen musst:
Sub LastRuns()
Dim fso, f, i, a
Const Pfad = "d:\temp\"
Const LastRun = "\lastrun.txt"
a = Array("test1", "test2", "test3")
Set fso = CreateObject("Scripting.FileSystemObject")
For i = 1 To 3
Set f = fso.GetFile(Pfad + a(i - 1) + LastRun)
Cells(i, 1) = f.Path
Cells(i, 2) = f.DateLastModified
Next
End Sub
Das Makro schreibt in die 1. Spalte der aktuellen Excel-Tabelle (beginnend mit Zeile 1) die Dateinamen und in die 2. Spalte Datum und Uhrzeit der letzten Änderung der Dateien.
ACHTUNG! Falls in der Tabelle schon etwas drinsteht, wird das ohne Rücksicht auf Verluste überschrieben!