Private mFiles As New System.ComponentModel.BindingList(Of _
      System.IO.FileInfo)
 
    Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        DataGridView1.DataSource = mFiles
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim FBD As New FolderBrowserDialog
 
        If FBD.ShowDialog = Windows.Forms.DialogResult.OK Then
            mFiles.Clear()
 
            For Each nFile As System.IO.FileInfo In New System.IO.DirectoryInfo( _
              FBD.SelectedPath).GetFiles("*.*")
                mFiles.Add(nFile)
            Next
        End If
    End Sub