Unterordner durchsuchen
03.05.2005 17:43:25
Axel
ich möchte einen Ordner mit allen Unterordnern auslesen und habe angefangen mir dieses Code zu basteln.
Dieser zeigt mir aber nur die Daten des Ordners an, aber nicht die der Unterordner.Was muss ich tun?
...und...
Wie kann ich dann noch zusätzlich nach einem Bestimmten Dateientyp *.xls; *.doc ; *.pdf... suchen?
Sub DateiInfosErmittel()
Dim Blatt As Worksheet
Dim Pfad As String
Dim DatNam As String
Dim i As Integer
Set Blatt = ThisWorkbook.Worksheets("tabelle2")
Pfad = InputBox("Guten Tag! Wo liegen die Daten, die Sie listen möchten?", _
"Ordner auswählen", "g:\")
DatNam = Dir(Pfad)
With Blatt
.Cells(1, 1) = "pfad:"
.Cells(1, 2) = Pfad
.Cells(2, 2) = "Name"
.Cells(2, 3) = "Pfad"
.Cells(2, 4) = "Datum"
.Cells(2, 5) = "Uhrzeit"
.Cells(2, 6) = "Größe"
i = 3
Do While DatNam <> ""
.Cells(i, 2) = DatNam
.Cells(i, 3) = Pfad
.Cells(i, 4) = Int(FileDateTime(Pfad & DatNam))
.Cells(i, 5) = FileDateTime(Pfad & DatNam) - Int(FileDateTime(Pfad & DatNam))
.Cells(i, 6) = FileLen(Pfad & DatNam)
i = i + 1
DatNam = Dir
Loop
.Columns("d:d").NumberFormat = "MM-DD-YYYY"
.Columns("e:e").NumberFormat = "hh:mm"
.Columns("a:f").AutoFit
End With
End Sub
Gruß Axel