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

sxgaobo

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

sxgaobo

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

chaojianan

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

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

sxgaobo

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

Henry D. Sy

你把您的例子传上来看看

Henry D. Sy

files有个count属性。

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

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

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

sxgaobo

files的count属性怎么用啊？