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

参考

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

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

报什么错？

处理一下特殊文件

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

    End If

Next

Dim path As String = args(0)
For Each file As String In FileSys.GetFiles(path)
    Dim ifo As new FileInfo(file)
    If ifo.Hidden = False Then
        Forms("窗口1").Controls("TextBox1").Text &= vbcrlf & file & vbcrlf
    End If
Next

For Each p As String In FileSys.GetDirectories(path)
    Forms("窗口1").Controls("TextBox1").Text &= vbcrlf & p & vbcrlf
    Functions.Execute("递归", p)
Next