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

参考

载信息  [文件大小：292.0 KB  下载次数：84]

点击浏览该文件:文件递归.table

窗口与控件事件

窗口1_Button1_Click

'Functions.Execute("递归", "d:\helen_workspace\codefans.net")

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

全局代码

菜单事件

报什么错？

处理一下特殊文件

For Each file As String In FileSys.GetFiles(path)
    Dim ifo As new FileInfo(file)
    If ifo.Hidden = False Then

    End If

Next