zu: Alle dateinamen eines ordners ermittel
08.12.2003 13:08:50
michael
am 01.12.2003 gabs einen Betrag zu "Alle dateinamen eines ordners ermittel".
Die Lösungen kamen von Michael Scheffler und chris b.
Sub test()
Dim strAlle As String
strAlle = Dir("c:\*.*")
Do While strAlle <> ""
strAlle = Dir
lz = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row +1
cells(lz,1) = stralle
Loop
End Sub
Hierzu habe ich 2 Fragen.
1. Nach welchem System werden die Dateien ausgelesen (bei mir war es weder alphabetisch, nach datum odr sonst wie sortiert). Weiß jemand wie Excel oder win98 damit umgeht?
2. Wie heißt der alternative Befehl wenn ich nur die Unterverzeichnisse aufgelistet haben möchte. Kann ich auch die 2., 3. usw. Ebene der Unterverzeichnisse aufrufen? So könnte man in Spalte A die Hauptebene in Spalte B die darusfolgenede Ebene usw auflisten.
Im vorraus Danke für eure Hilfe
Michael
Anzeige