Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Try
            Me.Cursor = Cursors.WaitCursor
            If Not TextBox1.Text.Trim.Length > 0 Then Throw New Exception( _
              "Filter fehlt.")
            If FolderBrowserDialog1.ShowDialog = Windows.Forms.DialogResult.OK _
            Then
                ListBox1.Items.Clear()
                For Each fInfo As System.IO.FileInfo In New _
                  System.IO.DirectoryInfo( _
                  FolderBrowserDialog1.SelectedPath).GetFiles(TextBox1.Text, _
                  System.IO.SearchOption.AllDirectories)
                    ListBox1.Items.Add(fInfo.Name)
                Next
                MsgBox("Fertig! " & ListBox1.Items.Count & " Datei(en)" & _
                  "gefunden.")
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            Me.Cursor = Cursors.Default
        End Try
    End Sub