请教！如何能将某硬盘中所有文件夹及文件的名称都导入ACCESS表中？（又有新问题）

sxgaobo

在论坛里查询了下，有几个例子，可都是把某一文件夹中文件名列出的，有没有将多个文件夹及其中文件明同时列出的方法啊？

sxgaobo

谢谢 ACMAIN_CHM ！
你的方法可以导出，可不是我要的结果啊！我想要这样的结果：
              位置
D：\A\A1.TXT
D：\A\A2.TXT
D：\A\A3.TXT
D：\A\B\B1.RAR
D：\A\B\B2.MDE
D：\C\C1.RAR
D：\C\E\E1.RAR
......

sxgaobo

等待中......

sxgaobo

谢谢版主！
高手，可有个问题，就是当文件夹中的文件多时报错！另外能麻烦您改下程序，将结果写在一个表中吗？

另：
我用别的方法得到了A表，怎样才能整理成B表那样的结果？

sxgaobo

解决了，在Henry D. Sy 版主提供例子的基础上。
谢谢各位朋友的热情帮助！！！

sxgaobo

再请教个问题！
如何能得到所选择文件夹中的文件个数（包括子文件夹中）啊？

sxgaobo

再次请教！
如何能得到所选择文件夹中的文件个数（包括子文件夹中）啊？

sxgaobo

明天出差，有感兴趣的朋友帮我顶顶好吗？

sxgaobo

将所取得的数据写入表中就不会报错了！

sxgaobo

Dim sfd As Folder
    Dim f As File
    Dim r As DAO.Recordset
   
    For Each f In fd.Files
Set r = CurrentDb.OpenRecordset("select a from 表;")
r.AddNew
r.Fields!a = f.Path
r.Update
Me.Repaint
    Next
   
    For Each sfd In fd.SubFolders
        
        ListFolder sfd
   
    Next


files的count怎么用啊？
我想做个进度条，免得文件很多的时候象死机了似的，所以想在导文件前知道需要导入文件的个数。