List 目录和子目录中的文件列表

我正在使用以下代码。但它无法在文本框t1中传递输出

Imports System.IO

Public Class Form1
Dim fp As String

Private Sub b1_Click(sender As Object, e As EventArgs) Handles b1.Click
    If (FolderBrowserDialog1.ShowDialog() = DialogResult.OK) Then
        fp = FolderBrowserDialog1.SelectedPath
        t2.Text = fp
    End If

End Sub

Private Sub b2_Click(sender As Object, e As EventArgs) Handles b2.Click
    Dim filelist As String() = Directory.GetFiles(fp, SearchOption.AllDirectories)

    For Each filename As String In filelist
        t1.AppendText(filename)
    Next

End Sub

我找不到错误在哪里。需要帮助

---

谢谢

我发现最愚蠢的事情是在GetFiles中插入文件类型，即“.”。

听起来可能很可笑，但我相信我的代码是完美的，那么为什么输出没有达到预期效果呢。