Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Dateien in einem Verzeichnis und Unterverzeichnissen suchen

Gruppe

Verzeichnis

Problem

Wie kann ich, ausgehend von einem Startverzeichnis, dieses und alle Unterverzeichnisse nach einem bestimmten Dateinamen durchsuchen lassen?

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

StandardModule: basMain

Sub SearchFile()
   Dim iCounter As Integer
   With Application.FileSearch
      .FileName = Range("B1").Value
      .LookIn = Range("B2").Value
      .SearchSubFolders = True
      .Execute
      If .FoundFiles.Count = 0 Then
         Beep
         MsgBox "Datei wurde nicht gefunden!"
      Else
         For iCounter = 1 To .FoundFiles.Count
            MsgBox .FoundFiles(iCounter)
         Next iCounter
      End If
   End With
End Sub