Получаем список файлов и папок

Imports System.IO
Public Class Form1
    Public Shared list As New Windows.Forms.CheckedListBox
    Public Shared ready As Boolean = False
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
    End Sub
 
    Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
        scan_files()
    End Sub
    Private Sub scan_files()
    
        Dim tmp As New List(Of String)
        Dim di As New DirectoryInfo("G:\")
        scan_files2("G:\")
        Dim filesList As DirectoryInfo() = di.GetDirectories()
        For Each file As DirectoryInfo In filesList
            list.Items.Add(file.FullName)
            tmp.Add(file.FullName)
        Next
 
        For i = 0 To tmp.Count - 1
            Try
                Dim di2 As New DirectoryInfo(tmp(i) & "\")
                Dim filesList2 As DirectoryInfo() = di2.GetDirectories()
                For Each file2 As DirectoryInfo In filesList2
                    list.Items.Add(file2.FullName)
                    tmp.Add(file2.FullName)
                Next
                scan_files2(tmp(i) & "\")
            Catch ex As Exception
 
            End Try
        Next
        ready = True
 
    End Sub
    Private Sub scan_files2(ByVal path As String)
      
        Dim di3 As New DirectoryInfo(path)
        Dim filesList3 As FileInfo() = di3.GetFiles()
        For Each file3 As FileInfo In filesList3
            list.Items.Add(file3.FullName)
        Next
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        CheckedListBox1.Items.Clear()
        Try
            BackgroundWorker1.WorkerReportsProgress = True
            BackgroundWorker1.RunWorkerAsync()
        Catch ex As Exception
            MsgBox("Ошибка", ex.Message)
        End Try
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If ready = True Then
            ready = False
            CheckedListBox1.Items.AddRange(list.Items)
            list.Items.Clear()
        End If
 
    End Sub
 
End Class

Private Sub Get_Directories(ByVal _path As String)
 
        For Each dir_name As String In Directory.GetDirectories(_path)
            ListBox1.Items.Add(dir_name)
            Get_Directories(dir_name)
        Next
 
        For Each file_name As String In Directory.GetFiles(_path)
            ListBox1.Items.Add(file_name)
        Next
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Get_Directories("D:\имя_папки\")
    End Sub

Private Sub Search(ByVal fold As String, ByVal mask As String)
        Dim Dirs As String()
        Dim files As String()
        Dim cdir As String
        Try
            files = System.IO.Directory.GetFiles(fold, mask)
            Me.ListBox1.Items.AddRange(files)
            Dirs = System.IO.Directory.GetDirectories(fold, "*", IO.SearchOption.TopDirectoryOnly)
        Catch ex As Exception
            
        End Try
        If Not Dirs Is Nothing Then
            For Each cdir In Dirs
                Me.Search(cdir, mask)
            Next
        End If
    End Sub

Public Class Form1 
 
    Dim ex_count As Integer 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
        Dim RDS As New FolderBrowserDialog 
        With RDS 
            .RootFolder = Environment.SpecialFolder.MyComputer 
            .ShowNewFolderButton = False 
            .Description = "Выберите корневой каталог поиска" 
        End With 
        If RDS.ShowDialog = Windows.Forms.DialogResult.OK Then 
            Me.TextBox1.Text = RDS.SelectedPath 
        End If 
    End Sub 
 
    Private Sub Search(ByVal fold As String, ByVal mask As String) 
        Dim Dirs As String() 
        Dim files As String() 
        Dim cdir As String 
        Try 
            files = System.IO.Directory.GetFiles(fold, mask) 
            Me.ListBox1.Items.AddRange(files) 
            Dirs = System.IO.Directory.GetDirectories(fold, "*", IO.SearchOption.TopDirectoryOnly) 
        Catch ex As Exception 
            ex_count = ex_count + 1 
        End Try 
        If Not Dirs Is Nothing Then 
            For Each cdir In Dirs 
                Me.Search(cdir, mask) 
            Next 
        End If 
    End Sub 
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click 
        Me.ex_count = 0 
        Me.Enabled = False 
        Me.ListBox1.Items.Clear() 
        Me.Search(Me.TextBox1.Text, Me.TextBox2.Text) 
        Me.Enabled = True 
        Dim infostr As String = "Поиск завершен." & vbCrLf & "Найдено " & Me.ListBox1.Items.Count & " файлов." & vbCrLf & vbCrLf & "Обработано " & Me.ex_count & " исключений." 
        MsgBox(infostr, MsgBoxStyle.Information) 
    End Sub 
End Class

Public Class Form1
    Private Sub Search(ByVal fold As String, ByVal mask As String)
 
        Dim Dirs As String()
 
        Dim files As String()
        Dim cdir As String = "d:\vvv"
        Try
            files = System.IO.Directory.GetFiles(fold, mask)
            Me.ListBox1.Items.AddRange(files)
            Dirs = System.IO.Directory.GetDirectories(fold, "*", IO.SearchOption.TopDirectoryOnly)
        Catch ex As Exception
 
        End Try
        If Not Dirs Is Nothing Then
            For Each cdir In Dirs
                Me.Search(cdir, mask)
            Next
        End If
    End Sub
End class

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
         Search("C:\", "*.txt")
    End Sub