主题：[求助]遍历文件夹下级的所有文件？

 
此主题相关图片如下：1616143515(1).png

下面是遍历下一级的文件，显示出两级，还报错了，不知错在那里？如何遍历出下下下...级的所有文件，总不能写出n个For Each吧？有什么更好的思路？

Dim f As String = "f:\"
For Each File As String In FileSys.GetFiles(f)
    Dim a As String = file
    Output.Show(a)
Next

For Each dir As String In FileSys.GetDirectories(f)
    If dir IsNot Nothing Then
        For Each File2 As String In FileSys.GetFiles(dir)
            Dim a2 As String = file2
            Output.Show(a2)
        Next
    End If
Next