dateinamen + änderungsdatum ermittel
04.04.2005 04:14:47
Gabor
Ich möchte ein Verzeichnis auslesen.Im Verzeichnis G:\Date\ befinden sich mehrere Dateien und in Spalte A sollen ab Zeile 2 alle Namen der Dateien stehen(in der Form G:\Date\test.xls).
Direkt daneben (Spalte B) soll das Änderungsdatum stehen.
Das Datum bekomme ich wie folgt:
Sub datetime()
Dim dat As Date
dat = FileDateTime(Range("A2").Value)
Range("B2") = dat
End Sub
muss nur noch in eine Schleife eingebunden werden die solange läuft bis in der Spalte A mit den Dateinamen kein Wert mehr steht.
Bin für jede Hilfe dankbar
Gabor
Anzeige