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

Beiträge aus den Excel-Beispielen zum Thema "dateinamen + änderungsdatum ermittel"