主题：如何读取所有文件的路径信息？

 你可以看一下这个例子

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=28215&replyID=177536&skin=1

 

 关键是你看按钮的代码，换成自己的路径便可测试。

Functions.Execute("递归", "D:\伐区设计野外照片")

 拷贝原来例子的代码，你还要修改原来的一些代码的。

 

 关键你要理解这个函数

 

http://www.foxtable.com/help/topics/1486.htm

 

 回复9楼，一样是这样做。

 

 但是，你的表结构，只有三级目录，你的文件夹也只有三级？如果是这样的话，就不需要用递归了，直接三层用循环即可

 

 基础知识： http://www.foxtable.com/help/topics/0331.htm

 

 那个是开发版的，你打不开。

 

 看11楼，很简单的事情。

 你的文件夹是不是固定的3级目录？

参考代码

 

For Each d1 As String In FileSys.GetDirectories("C:\Documents and Settings\Administrator\My Documents\下载")
    Dim ndr As DataRow = DataTables("表A").AddNew
    ndr("第一列") = FileSys.GetName(d1)
    For Each d2 As String In FileSys.GetDirectories(d1)
        ndr("第二列") = FileSys.GetName(d1)
        For Each d3 As String In FileSys.GetDirectories(d2)
            ndr("第三列") = FileSys.GetName(d2)
            ndr("第四列") = FileSys.GetFiles(d2).Count
        Next
    Next
Next

 回复17楼，如果多，那么你的表的设计就不合理，如果不确定，填入表里面有什么意义？

请好好理解楼上的知识点，理清自己的思路。