Public Class SearchFile
    Inherits Object
    Private m_FileName As String
    Private m_Log As Boolean
    Private m_Drives() As String
    Private m_sw As IO.StreamWriter
    Private m_Abort As Boolean
    Public Event CurrentFile(ByVal FileName As String, ByVal IsEqual As Boolean)
 
    ' Vorgang abbrechen
    Public Sub Abort()
        Me.m_Abort = True
    End Sub
 
    ' Klassen-Initialisierung
    Public Sub New(ByVal FileName As String, ByVal Drives() As String, ByVal _
      Log As Boolean)
        MyBase.New()
        Me.m_FileName = FileName
        Me.m_Log = Log
        Me.m_Drives = Drives
    End Sub
 
    ' Suchvorgang starten
    Public Sub Search()
        Try
            Me.m_Abort = False
            If Me.m_Log Then m_sw = New IO.StreamWriter("log.txt", False)
            For Each d As String In Me.m_Drives
                Me.Search(d)
                If Me.m_Abort Then Return
            Next
        Finally
            If Not m_sw Is Nothing Then
                m_sw.Close()
            End If
        End Try
    End Sub
 
    ' aktuelle Datei in LogFile speichern
    Private Sub Log(ByVal CurrentFile As String)
        If Not Me.m_Log Then Return
        m_sw.WriteLine(CurrentFile)
    End Sub
 
    ' Vergleich, ob es sich bei der aktuellen 
    ' Datei um die gesuchte Datei handelt
    Private Sub IsEqual(ByVal CurrentItem As String)
        'RaiseEvent CurrentFile(CurrentItem, _
        '  Me.m_FileName.ToUpper.Equals(IO.Path.GetFileName( 
        ' CurrentItem).ToUpper)) 'vergleicht ob der Dateiname gleich dem _
        Suchbegriff ist
 
        RaiseEvent CurrentFile(CurrentItem, (IO.Path.GetFileName( _
          CurrentItem).ToUpper).EndsWith(Me.m_FileName.ToUpper))
    End Sub
 
    ' Verzeichnis durchsuchen
    Private Sub SearchFile(ByVal Dir As String)
        For Each f As String In IO.Directory.GetFiles(Dir)
            Me.Log(f)
            Me.IsEqual(f)
            If Me.m_Abort Then Return
        Next
    End Sub
 
    ' alle Verzeichnisse ermitteln und Suchvorgang ausführen
    Private Sub Search(ByVal Dir As String)
        Try
            SearchFile(Dir)
            For Each d As String In IO.Directory.GetDirectories(Dir)
                Try
                    If Me.m_Abort Then Return
                    Search(d)
                Catch ex As Exception
                    Debug.WriteLine(ex.Message)
                End Try
            Next
        Catch ex As Exception
            Debug.WriteLine(ex.Message)
        End Try
    End Sub
End Class