Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim Verzeichnisse As New IO.DirectoryInfo("C:\WINDOWS")
 
        Datei_Suche(Verzeichnisse)
 
    End Sub
 
    Private Sub Datei_Suche(ByVal Verzeichnis As IO.DirectoryInfo)
        Dim Unterverzeichnis As IO.DirectoryInfo
        Dim Datei As IO.FileInfo
 
 
        'Das Steuerelement baut sich nicht auf, so lange nicht EndUpdate 
        ' aufgerufen wird.
        'Dadurch wird das flackern verhindert
        ListView1.BeginUpdate()
 
        Try
            For Each Unterverzeichnis In Verzeichnis.GetDirectories
 
                For Each Datei In Unterverzeichnis.GetFiles 'Lese jede Datei in 
                ' dem 'angegeben Ordner ein
 
                    If Datei.Extension = ".exe" Then 'Eine bestimmte Datei wird 
                    ' gesucht
                        ListView1.Items.Add(Datei.Name)
                    End If
 
                    'Schau dir mal die IO.Path Geschichte im ObjektBrowser 
                    ' an!!!!!
                    'Mit diesem Objekt würde es wie folgt gehen
                    'If IO.Path.GetExtension(Datei.Name) = ".exe" Then
                    '    ListView1.Items.Add(Datei.Name)
                    'End If
                    'Das Objekt enthält noch mehrere nützliche Funktionen
 
                Next
 
                Datei_Suche(Unterverzeichnis) 'Rekursiver Aufruf (Suche in dem 
                ' untergeordneten Ordner ebenfalls nach
                'Unterordner)
            Next
 
        Catch Fehler As Exception 'Der Ordner "System Volume Information" mag _
          nicht so gerne aufgerufen werden  
            MsgBox(Fehler.Message)
        End Try
 
        ListView1.EndUpdate()
 
    End Sub