VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Dateisuche unter Einbeziehung der untergeordneten Ordner

Gruppe

Allgemein

Bereich

Suchen

Thema

Dateisuche unter Einbeziehung der untergeordneten Ordner

Problem

Wie kann ich eine Datei in einem Verzeichnis unter Einbeziehung der Unterverzeichnisse suchen?

Lösung

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




StandardModule: basMain

Sub Suchen()
   Dim fs As FileSearch
   Dim sDir As String, sFile As String
   sDir = InputBox( _
      prompt:="Verzeichnis:", _
      Default:=Application.DefaultFilePath)
   If sDir = "" Then Exit Sub
   sFile = InputBox( _
      prompt:="Dateiname:", _
      Default:="test1.xls")
   If sFile = "" Then Exit Sub
   Set fs = Application.FileSearch
   With fs
      .LookIn = sDir
      .SearchSubFolders = True
      .FileName = sFile
      If .Execute(SortBy:=msoSortByFileName, _
         SortOrder:=msoSortOrderAscending) > 0 Then
         MsgBox "Gefunden: " & .FoundFiles(1)
      Else
         MsgBox "Datei wurde nicht gefunden!"
      End If
   End With
End Sub

    


Beiträge aus dem Excel-Forum zu den Themen Allgemein und Suchen