主题：如何读取所有文件的路径信息？

可以啊。

你直接填入文件的路径即可啊

这个照片路径只能一张一张地填？

如果用命令怎么实现？因为照片太多。。。

楼上不是给你代码了么？不是循环所有的文件？你自己赋值不行？

上面给的代码添加不了照片啊！赋值是怎么操作？是"照片"列的路径一张一张地填入吗？这样就太累了。。。

做个例子发上来，文件夹图片带上来。

你根本就没有看懂代码

真是不好意思。屡次麻烦！

是想通过“照片信息表”中的"获取照片信息"命令按钮获取扫描文件夹下的照片信息并添加照片。

不好意思，刚才图片太大，没传成功

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:新鑫影像设计制作中心_201409141527.zip

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:扫描.rar

参考代码

For Each d1 As String In FileSys.GetDirectories("d:\扫描")
    FileSys.CopyDirectory(d1, ProjectPath & "Attachments\" & FileSys.GetName(d1), True)
    For Each d2 As String In FileSys.GetDirectories(d1)
        For Each d3 As String In FileSys.GetDirectories(d2)
            For Each f4 As String In FileSys.GetFiles(d3)
                Dim ndr As DataRow = DataTables("照片信息").AddNew
                ndr("文件夹名") = FileSys.GetName(d1)
                ndr("产品类型") = FileSys.GetName(d2)
                ndr("产品规格") = FileSys.GetName(d3)
                ndr("照片") = FileSys.GetName(d1) & "\" & FileSys.GetName(d2) & "\" & FileSys.GetName(d3) & "\" &FileSys.GetName(f4)
               
                Dim img As image=getimage(f4)
                ndr("照片长")=img.width
                ndr("照片宽")=img.height
            Next
        Next
    Next
Next