✔ Vb.Net Funktion suchen

[Silverado]

Tag Leute ich hab da eine Function. Die Functioniert auch aber ich wollte euch fragen ob man in dieser Funktion auch nach allen Dateien Dursuchen kann.

    Public Sub CheckDir(ByVal diDirectory _
           As System.IO.DirectoryInfo)
        CheckFiles(diDirectory)
        Dim di As System.IO.DirectoryInfo
        For Each di In diDirectory.GetDirectories()
            Try
                CheckDir(di)
            Catch
                List1.Items.Add("Error at " & di.FullName)
                Application.DoEvents()
            End Try
        Next di
    End Sub

    Public Sub CheckFiles(ByVal diDirectory _
      As System.IO.DirectoryInfo)
        Dim fi As System.IO.FileInfo
        Try
            For Each fi In diDirectory.GetFiles()
                If System.IO.Path.GetExtension(fi.FullName) _
                  = ".*" Then
                    ' Es wurde eine Datei gefunden.
                    List1.Items.Add(fi.FullName)
                    ' Operation auf die Datei ausführen...
                    'f.Delete()
                End If
            Next fi
        Catch
            List1.Items.Add("Error at " & fi.FullName)
            List1.Refresh()
            Application.DoEvents()
        End Try
    End Sub

 

[Dario Linsky]

Irgendwie versteh ich gerade nicht so ganz, wo Dein Problem genau ist...

 

[Silverado]

da wo dat steht kan man angeben welche datei gesucht werden soll und wenn ich stern angebe dan sucht der nicht mehr!

If System.IO.Path.GetExtension(fi.FullName) _
                  = ".dat"  Then

Kennt jemand eine bessere Function die Ordner und Unterordener nach allen Daten Untersucht?