DirFunktion/Dateiliste mit Ordnern?
Prevertex
Am nächsten komm ich noch mit was selbstgeschriebenen, wo aber leider nur immer der 1. Ordner ausgelesen wird. Any ideas?
Sub ListFolder()
Dim MISe As String
Dim MISt As String
Dim I As Integer
MISe = Sheets("C").Range("DR96") 'Dateipfad
I = 0
Do
MISt = Dir(MISe, vbDirectory)
Range("DR101").Offset(I, 0) = MISt
I = I + 1
Loop Until MISt = ""
End Sub
Anzeige