Herbers Excel-Forum - das Archiv

dateinamen + änderungsdatum ermittel

Bild

Betrifft: dateinamen + änderungsdatum ermittel
von: Gabor

Geschrieben am: 04.04.2005 04:14:47
Guten Morgen liebe Experten.
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
Bild

Betrifft: AW: dateinamen + änderungsdatum ermittel
von: UweD

Geschrieben am: 04.04.2005 07:52:14
Hallo Gabor

so gehts:
Sub alle_Dateien_Verzeichnis() '
Dim strExt$, strFile$, strPath$, I%
strPath = "G:\Date\" 'Pfad des Verzeichnisses ggf. anpassen
strExt = "*.*"       'Dateiextension ggf. anpassen
If strPath = "" Then
Exit Sub
Else
I = 2
strFile = Dir(strPath & strExt)
Do While Len(strFile) > 0
ActiveSheet.Cells(I, 1).Value = strPath & strFile
ActiveSheet.Cells(I, 2).Value = FileDateTime(strPath & strFile)
I = I + 1
strFile = Dir() ' nächste Datei
Loop
End If
End Sub


Gruß Uwe
Bild

Betrifft: AW: dateinamen + änderungsdatum ermittel
von: Gabor
Geschrieben am: 04.04.2005 14:41:56
Danke für die Hilfe, funktioniert wie gewünscht.
Gabor
 Bild
Excel-Beispiele zum Thema "dateinamen + änderungsdatum ermittel"
Dateinamen filtern Dateinamen in Listbox
Dateinamen in Tabelle einlesen Dateinamen eines Verzeichnisses als HTML-Datei
Grafik nach Eingabe des Dateinamens einfügen Dateinamen in TabStrip-Elemente einlesen
Datei entsprechend der Eingabe des Dateinamens öffnen Dateinamen in UserForm-ComboBox einlesen und Datei öffnen
Grafik-Dateinamen aus Zelle auslesen und HTML-Datei erstellen Dateiauswahl-Dialog mit vorgegebenen Dateinamen aufrufen