主题：如何获得D盘下的所有文件夹和文件的名称？

窗口1_Button1_Click

Functions.Execute("递归", "d:\") 

自定义函数

递归

Dim path As String = args(0)

For Each file As String In FileSys.GetFiles(path)

    Forms("窗口1").Controls("TextBox1").Text &= vbcrlf & file & vbcrlf

Next

For Each p As String In FileSys.GetDirectories(path)

    Functions.Execute("递归", p)

Next

写在这个内部函数里怎么写呢？