VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Dateien suchen

Gruppe

Datei

Bereich

Filtern

Thema

Dateien suchen

Problem

Im Verzeichnis C:\ wird nach allen Dateien mit den Extensions *.xls, *.gif und *.jpg gesucht.

Lösung

Geben Sie den Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.




StandardModule: Modul1

Sub DateienSuchen()
   Dim arr As Variant
   Dim iCounter As Integer, iFile As Integer
   arr = Array("*.xls", "*.gif", "*.jpg")
   For iCounter = LBound(arr) To UBound(arr)
      With Application.FileSearch
         .NewSearch
         .LookIn = "c:"
         .Filename = arr(iCounter)
         .MatchTextExactly = True
         .SearchSubFolders = False
         .Execute
         For iFile = 1 To .FoundFiles.Count
            Cells(iFile, 1).Value = .FoundFiles(iFile)
         Next iFile
      End With
   Next iCounter
End Sub

    


Beiträge aus dem Excel-Forum zu den Themen Datei und Filtern