将所选择文件夹中的文件（包括子文件夹中）添加到表中

yanwei82123300

请老师看看附件：将所选择文件夹中的文件（包括子文件夹中）添加到表中，谢谢
下面的代码是Henry D. Sy 老师给的，但是我不会添加，请看看，谢谢

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

yanwei82123300

请老师们帮助一下!!谢谢

roych

是添加文件还是添加文件路径？添加路径可以直接将sfd用ADO的AddNew或者insert values的方式，把Name或者Path属性添加进去就好了。
如果是添加文件的话，则需要使用附件字段进行一个添加（2007版本或以上）或者转为长二进制进行处理（2003版本或以下）
http://www.office-cn.net/thread-120888-1-1.html【2007版本】http://www.office-cn.net/thread-83567-1-1.html【2003版本】

这里明明就有啊简直了。docmd.runsql "insert 表(文件名) values('"&sfd.Path&"')"

yanwei82123300

谢谢老师帮助