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

 

 代码写错了，改一下

 

 

求指点

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 ndr As DataRow = DataTables("表A").AddNew
            ndr("第一列") = FileSys.GetName(d1)
            ndr("第二列") = FileSys.GetName(d2)
            ndr("第三列") = FileSys.GetName(d3)
            ndr("第四列") = FileSys.GetFiles(d3).Count
        Next
    Next
Next

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的子目录下？该如何操作？

谢谢！

 回复27楼，你对应的把文件拷贝到自己的文件夹下即可

 

 http://www.foxtable.com/help/topics/0343.htm

 

 http://www.foxtable.com/help/topics/0342.htm

 

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

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

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)
            For Each f4 As String In FileSys.GetFiles(d3)
                Dim ndr As DataRow = DataTables("表A").AddNew
               
                ndr("第一列") = FileSys.GetName(d1)
               
                ndr("第二列") = FileSys.GetName(d2)
               
                ndr("第三列") = FileSys.GetName(d3)
               
                ndr("第四列") = FileSys.GetName(f4)
               
                Dim img As image=getimage(f4)
                ndr("第五列")=img.width
               
                ndr("第六列")=img.height
            Next
        Next
    Next
Next