Mit untenstehendem Code liste ich mir alle Dateinamen auf, welche am gleichen Ordner abgelegt sind, wie die Datei, in welchem der Code steckt.
Nun möchte ich anstelle der Dateinamen alle Ordner (ohne Unterordner) die im entsprechenden Ordner abgelegt sind, ausgeben.
Was muss ich an diesem Pfad ändern?
Danke für eine Antwort und
Gruss, Peter
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, p As String
p = ThisWorkbook.Path
p = p + "\*.*"
Dateiname = Dir$(p) 'Hier Verzeichnis und Datei angeben
Do While Dateiname ""
ActiveCell.Offset(i, 0) = Dateiname
i = i + 1
Dateiname = Dir$()
Loop
End Sub