VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Dateien in einem Verzeichnis und Unterverzeichnissen suchen

Gruppe

Datei

Bereich

Verzeichnis

Thema

Dateien in einem Verzeichnis und Unterverzeichnissen suchen

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

    


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