如何让每个子文件夹的文件导入到一行（列属性是备注，扩展是多文件）？

此主题相关图片如下：未命名.jpg

由于文件夹的数量太多，有没有批量的方法？

用这个：
 
http://www.foxtable.com/help/topics/1413.htm

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

谢谢！

狐狸大哥，求指点啊，虽然用这2个命令可以列出目录和表，但是又有2个问题很难解决啊。

GetDirectories

是列出所有的文件夹，如何让程序自动列出第一个到最后一个？

用这段代码出现了这样的状况

Dim r As DataRow

    For Each File As String In FileSys.GetFiles("C:\\")
    r = DataTables("表A").DataRows(0)
    r("第一列") = r("第一列") + File
Next

看了教程了，还是不知道如何实现

没怎么看明白。

Dim FileName As String
For Each dir As String In FileSys.GetDirectories(ApplicationPath)
    For Each File As String In FileSys.GetFiles(dir)
        FileName = FileName & vbCrLf & File
    Next
Next
CurrentTable.Current("第一列") = FileName