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

Thanks very much!

欲获取照片属性，这样写命令得不到数据。

For Each d1 As String In FileSys.GetDirectories("C:\Documents and Settings\Administrator\My Documents\下载")

       For Each d2 As String In FileSys.GetDirectories(d1

             For Each d3 As String In FileSys.GetDirectories(d2)

                 dim img as image=getimage(d3) 

                 Dim ndr As DataRow = DataTables("表A").AddNew

                 ndr("第一列") = FileSys.GetName(d1) 

                 ndr("第二列") = FileSys.GetName(d2)

                 ndr("第三列") = FileSys.GetName(d3)

                 ndr("第四列") = FileSys.GetFiles(d3).Count

                 ndr("第五列")=img.width

              Next

         Next

Next

尝试其他方式也不行。请指正。

另外，还想把照片添加到第六列，请帮忙。

再求助有点甜老师：

欲在上面你给的代码中实现“让图片自动添加到第六列”的功能，该如何写命令？

还有让图片动态存储时能不能存到非ATTACH的子目录下？该如何操作？

谢谢！

有点甜老师，你上面给我的代码不是能够获取路径文件夹名了嘛，我现在就是想在你给的代码里加入能“获取第三级文件夹下各张照片的长、宽、面积属性并将对应的照片也添加到表”中的功能。请帮忙！

For Each d1 As String In FileSys.GetDirectories("C:\Documents and Settings\Administrator\My Documents\下载")

       For Each d2 As String In FileSys.GetDirectories(d1

             For Each d3 As String In FileSys.GetDirectories(d2)

                 dim img as image=getimage(d3) 

                 Dim ndr As DataRow = DataTables("表A").AddNew

                 ndr("第一列") = FileSys.GetName(d1) 

                 ndr("第二列") = FileSys.GetName(d2)

                 ndr("第三列") = FileSys.GetName(d3)

                 ndr("第四列") = FileSys.GetFiles(d3).Count

                 ndr("第五列")=img.width

                 ndr("第六列")=照片宽

                ndr("第七列")=照片面积

                ndr("第八列")=对应照片

              Next

         Next

Next

不能在这里用命令添加照片进来吗？

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

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

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

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

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

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

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

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

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

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

谢谢！

为什么对这表中数据进行动态存储时代码失效呢？

BeforeAttachFile事件

Dim dr As DataRow = e.DataRow
If dr.IsNull("影楼名称") Or Dr.IsNull("顾客名")Or Dr.IsNull("文件夹名")  Then
    MessageBox.Show("影楼名称,顾客名和文件夹名均不能为空!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    e.Cancel = True
Else
    e.SubFolder = dr("影楼名称") & "\" & dr("顾客名") & "\" & dr("产品类型")& "_" & dr("产品规格")
    e.FileName = dr("影楼名称") & dr("顾客名") &  dr("产品类型")& dr("产品规格")& ".jpg"

End If