参考代码
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