Liste aller Dateien eines Ordners erzeugen

Auf Ihrem Computer haben sich mit der Zeit zahlreiche Dateien verschiedener Typen angesammelt. Sie wollen die vorhandenen Dateien eines Ordners, zum Beispiel alle MP3- oder JPG-Dateien, erfassen und ⁿbersichtlich in einer Liste verwalten. Dazu m÷chten Sie die DateiInformationen automatisch in eine Tabelle oder Datenbank einlesen.

Mit einer VBA-Programmierung k÷nnen Sie den Inhalt von Ordnern direkt nach Excel auslesen und die gewⁿnschten Informationen in einer Tabelle zusammenstellen.
╓ffnen Sie in Excel eine neue Arbeitsmappe und fⁿhren Sie ╗Extras | Makro | Makros½ aus. Geben Sie als Makronamen zum Beispiel ╗Suchen½ ein und klicken Sie anschlie▀end auf die SchaltflΣche ╗Erstellen½. Im VBA-Editor geben Sie nun folgende Makrozeilen ein oder Sie laden sich das Makro von CHIP Online: Web-Code PRAXIS0801

Dim z, unterordner As Variant

Sub Suchen()

Dim Laufwerk, Dateien As String
z = 2
æTabellenbereich l÷schen
[a1:d4000] = äô
Laufwerk = äC:\ô
Laufwerk = InputBox(äIn welchem Ordner wollen Sie suchen:ô, äLaufwerk & Ordnerô, äC:\ô)

If Laufwerk = äô Then Exit Sub
Unterordner = MsgBox(äUnterordner mit einbeziehen?ô, vbYesNo, äUnterordnerô)
Dateien = ä*.*ô
Dateien = InputBox(äNach welchen Dateien wollen Sie suchen:ô, äDateitypô, ä*.*ô)

If Dateien = äô Then Exit Sub
Dateisuche Laufwerk, Dateien
End Sub

Sub Dateisuche(Laufwerk, Dateien)
Dim temp, wdhlg, Dateiname As String
On Error Resume Next

If Right(Laufwerk, 1) <> ä\ô Then Laufwerk = Laufwerk + ä\ô
temp = Dir(Laufwerk & Dateien)

Do While Len(temp)
  Dateiname = Laufwerk & temp
  Application.StatusBar = Dateiname
  Cells(z, 1).Select
  Cells(z, 1) = Laufwerk & temp
  Cells(z, 2) = FileLen(Laufwerk & temp)
  Cells(z, 3) = FileDateTime(Laufwerk & temp)
  Cells(z, 4) = temp
  z = z + 1
  temp = Dir()
Loop

temp = Dir(Laufwerk, vbDirectory)
If unterordner = vbNo Then temp=ôä

Do While Len(temp)
  If (temp <> ä.ô) And (temp <> ä..ô) Then
    If (GetAttr(Laufwerk & temp) And vbDirectory) = vbDirectory Then
      Dateisuche Laufwerk & temp, Dateien
      z = z - 1
      wdhlg = Dir(Laufwerk, vbDirectory)
      z = z + 1
      Do While wdhlg <> temp 
        wdhlg = Dir()
      Loop
    End If
  End If
  temp = Dir()
Loop

On Error GoTo 0
Application.StatusBar = False

End Sub