Как получить список файлов в папке и подпапках

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        GetFindSub("C:", "*.doc")
    End Sub
 
    Sub GetFindSub(ByVal Folder As String, ByVal Mask As String)
        Try
            Application.DoEvents()
            Dim ListFiles As String() = IO.Directory.GetFiles(Folder, Mask)
            Dim ListFolders As String() = IO.Directory.GetDirectories(Folder)
            For Each item In ListFiles
                ListBox1.Items.Add(item)
            Next
            For Each item In ListFolders
                GetFindSub(item, Mask)
            Next
        Catch ex As Exception
        End Try
    End Sub

    Dim StopSearch As Boolean = False
 
    Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        If e.KeyData = Keys.Escape Then
            StopSearch = True
        End If
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Text = "Поиск..."
        GetFindSub("C:", "*.doc")
    End Sub
 
    Sub GetFindSub(ByVal Folder As String, ByVal Mask As String)
        Try
            Application.DoEvents()
            If StopSearch = True Then
                Me.Text = "Операция отменена"
                Exit Sub
            End If
            Dim ListFiles As String() = IO.Directory.GetFiles(Folder, Mask)
            Dim ListFolders As String() = IO.Directory.GetDirectories(Folder)
            For Each item In ListFiles
                ListBox1.Items.Add(item)
            Next
 
            For Each item In ListFolders
                GetFindSub(item, Mask)
            Next
        Catch ex As Exception
        End Try
    End Sub

            ' For Each item In ListFiles
            '     ListBox1.Items.Add(item)
            ' Next
            ListBox1.Items.AddRange(ListFiles)

Dim Files() As String = IO.Directory.GetFiles(FolderRezult, "*.exe", "*.txt", IO.SearchOption.AllDirectories)

Dim Files() As String = IO.Directory.GetFiles(FolderRezult, "*", IO.SearchOption.AllDirectories)

Dim extensionStats = Directory.GetFiles(FolderRezult, "*.*", SearchOption.AllDirectories) _
    .GroupBy(Function(filePath) Path.GetExtension(filePath), StringComparer.OrdinalIgnoreCase) _
    .Select(Function(g) New With { .Extension = g.Key, .Count = g.Count() }) _
    .OrderByDescending(Function(an0n) an0n.Count) _
    .ToArray()
For Each an0n In extensionStats
    Dim message As String = String.Format("{0} файлов {1}", an0n.Extension, an0n.Count)
    Console.WriteLine(message)
Next

Imports System.Linq
Imports System.IO

textBox1.Text &= message & vbCrLf

Imports System.Linq
Imports System.IO
 
Public Class Rezult
    Dim FolderRezult As String
 
 
 
 
    Private Sub ButtonDirRezult_Click(sender As Object, e As EventArgs) Handles ButtonDirRezult.Click
        Dim path As String = ""
        If RezultDir1.ShowDialog = DialogResult.OK Then
            FolderRezult = RezultDir1.SelectedPath
        End If
 
    End Sub
 
 
 
 
    Dim TXTstat As String 'Обьявление переменной TXTstat
    Private Sub ButtonRezlult2_Click(sender As Object, e As EventArgs) Handles ButtonRezlult2.Click
        If IO.Directory.Exists(FolderRezult!) Then
            Dim extensionStats = Directory.GetFiles(FolderRezult, "*.*", SearchOption.AllDirectories) _
        .GroupBy(Function(filePath) Path.GetExtension(filePath), StringComparer.OrdinalIgnoreCase) _
        .Select(Function(g) New With {.Extension = g.Key, .Count = g.Count()}) _
        .OrderByDescending(Function(an0n) an0n.Count) _
        .ToArray()
            For Each an0n In extensionStats
                Dim message As String = String.Format("{0} файлов {1}", an0n.Extension, an0n.Count)
                RichTextBox1.Text &= message & vbCrLf
                If an0n.Extension = ".txt" Then
                    TXTstat = String.Format(an0n.Count) 'Реализация условия, поиск по раcширению и занесение в переменную TXTstat
                End If
            Next
 
        Else
            MsgBox("Введите каталог", 48 + 0, "Ошибка")
        End If
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Me.Close()
    End Sub
 
 
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim Exc As Object
        Exc = CreateObject("Excel.Application")
        Exc.Workbooks.Open("D:\1.xlsx").Activate()
        Exc.Cells(1, 2) = TXTstat 'Вывод переменной в ячейку 1,2
        Exc.Rows(7).Insert(Shift:=-4121)
        Exc.ActiveWorkbook.Save()
        Exc.ActiveWorkbook.Close()
        Exc.Quit()
        Exc = Nothing
    End Sub
 
 
End Class