0160-93 82 19 37 | Nehmen Sie 
Dateien eines beliebigen Verzeichnisses auflisten (Inhaltsverzeichnis)
105043
Dieses Makro listet alle Dateien des angegebenen Verzeichnisses ab der aktiven Zelle auf.
Sub DateinamenAuflisten()
'Dateinamen in einem bestimmten Verzeichnis auflisten
'Die Angabe des Verzeichnises erfolgt in DOS Konvention
'Eingefügt werden die Daten ab der aktiven Zelle
Dim Dateiname As String, i As Integer
Dateiname = Dir$("c:\*.*") 'Hier Verzeichnis und Datei angeben
Do While Dateiname <> ""
ActiveCell.Offset(i, 0) = Dateiname
i = i + 1
Dateiname = Dir$()
Loop
End Sub
In diesem Beispiel werden alle Dateien im Root-Verzeichnis c:\ aufgelistet.
