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

sxgaobo

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

sxgaobo

自己顶顶！

sxgaobo

files的count属性怎么用啊？

sxgaobo

谢谢版主！
我是想做个进度条，所以需要在导文件前知道每个子文件夹中文件的个数，不是导入完成后统计共导了几个文件啊！用什么方法啊？

Henry D. Sy

try

Dim sfd As Folder
    Dim f As File
    Dim r As DAO.Recordset
    dim i as long

    For Each f In fd.Files
Set r = CurrentDb.OpenRecordset("select a from 表;")
r.AddNew
r.Fields!a = f.Path
i=i+1
r.Update
Me.Repaint
    Next
   
    For Each sfd In fd.SubFolders
        
        ListFolder sfd
   
    Next
msgbox i

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怎么用啊？
我想做个进度条，免得文件很多的时候象死机了似的，所以想在导文件前知道需要导入文件的个数。

Henry D. Sy

files有个count属性。

Henry D. Sy

你把您的例子传上来看看

sxgaobo

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

chaojianan

解决了，在Henry D. Sy 版主提供例子的基础上。
谢谢各位朋友的热情帮助！！！
sxgaobo 发表于 2009-2-23 13:12

请问你是如何解决了[当文件夹中的文件多时报错]这个问题？
可否分享。