Option Explicit
 
Dim fso As New FileSystemObject
Dim fld As Folder
 
Private Sub cmdFSuchen_Click()
   Dim nDirs As Long, nFiles As Long, lSize As Currency
   Dim sDir As String, sSrchString As String
   ListBox1.Clear
   sDir = "c:\test\"
   sSrchString = TextBox1
   'MousePointer = vbHourglass
   Label1.Caption = "Searching " & vbCrLf & UCase(sDir) & "..."
   lSize = FindFile(sDir, sSrchString, nDirs, nFiles)
   'MousePointer = vbDefault
   MsgBox Str(nFiles) & " " & " Dateien mit dem Namen " & sSrchString & " gefunden In" & Str(nDirs) & _
          " Verzeichnis", vbInformation
   'MsgBox "Total Size = " & lSize & " bytes"
End Sub
 
Private Function FindFile(ByVal sFol As String, sFile As String, _
   nDirs As Long, nFiles As Long) As Currency
   Dim tFld As Folder, tFil As File, FileName As String
   
   On Error GoTo Catch
   Set fld = fso.GetFolder(sFol)
   FileName = dir(fso.BuildPath(fld.path, sFile), vbNormal Or _
                  vbHidden Or vbSystem Or vbReadOnly)
   While Len(FileName) <> 0
      FindFile = FindFile + FileLen(fso.BuildPath(fld.path, _
      FileName))
      nFiles = nFiles + 1
      ListBox1.AddItem fso.BuildPath(fld.path, dir)  ' Load ListBox
      FileName = dir()  ' Get Next file
      DoEvents
   Wend
   Label1 = "Searching " & vbCrLf & fld.path & "..."
   nDirs = nDirs + 1
   If fld.SubFolders.Count > 0 Then
      For Each tFld In fld.SubFolders
         DoEvents
         FindFile = FindFile + FindFile(tFld.path, sFile, nDirs, nFiles)
      Next
   End If
   Exit Function
Catch:  FileName = ""
       Resume Next
End Function
 
Private Sub CommandButton2_Click()
Unload frmOrdnerSuchen
End Sub
 
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Dim dir As String
        dir = ListBox1
        Shell "explorer.exe " & dir, vbNormalFocus
 
End Sub
 
Private Sub UserForm_Click()
 
End Sub