Wie kann ich alle Ordnernamen eines anzugebenden Verzeichnisses in eine Excel-Tabelle schreiben?
MfG
Hennning
Sub list()
z = 0
Pfad = InputBox("Bitte Verzeichnis eingeben", , "c:\")
dat = Dir(Pfad, vbDirectory)
Do While dat <> ""
If dat <> "." And dat <> ".." Then
If (GetAttr(Pfad & dat) And vbDirectory) = vbDirectory Then
z = z + 1
Cells(z, 1) = dat
End If
End If
dat = Dir
Loop
End Sub