Dateinamen und Folder auflisten
11.12.2007 16:29:00
Peter
Mit nachfolgendem Code hole ich alle Dateibezeichnungen im aktiven Folder. Wie muss der Code ergänzt werden, dassauch die Order berücksichtigt werden?
Danke für Feedback.
Peter
Sub DateinamenAuflisten()
Dim Dateiname As String, i As Integer, p As String
p = ThisWorkbook.Path
Debug.Print p
p = p + "\*.*"
Debug.Print p
Dateiname = Dir$(p) 'Hier Verzeichnis und Datei angeben
Do While Dateiname ""
Range("A1").Select
ActiveCell.Offset(i, 0) = Dateiname
i = i + 1
Dateiname = Dir$()
Loop
End Sub