|
Dim dr As DataRow
For Each d1 As String In FileSys.GetDirectories("D:\PDF")
For Each d2 As String In FileSys.GetDirectories(d1)
For Each d3 As String In FileSys.GetDirectories(d2)
Dim a As String = ""
dr = DataTables("表A").AddNew()
For Each f4 As String In filesys.GetFiles(d3)
If a > "" Then
a = a & vbcrlf & filesys.GetName(f4)
Else
a = filesys.GetName(f4)
End If
Next
dr("第一列") = FileSys.GetName(d1)
dr("第二列") = FileSys.GetName(d2)
dr("第三列") = FileSys.GetName(d3)
dr("第四列") = a
Next
Dim b As String = ""
Dim dr2 As DataRow = DataTables("表A").AddNew
For Each f3 As String In filesys.GetFiles(d2)
If b > "" Then
b = b & vbcrlf & filesys.GetName(f3)
Else
b = filesys.GetName(f3)
End If
Next
msgbox(3)
dr("第一列") = FileSys.GetName(d1)
dr("第二列") = FileSys.GetName(d2)
dr("第三列") = b
Next
Dim c As String = ""
dr = DataTables("表A").AddNew
For Each f2 As String In filesys.GetFiles(d1)
If c > "" Then
c = c & vbcrlf & filesys.GetName(f2)
Else
c = filesys.GetName(f2)
End If
dr("第一列") = FileSys.GetName(d1)
dr("第二列") = c
Next
Next
Dim d As String = ""
dr = DataTables("表A").AddNew
For Each f1 As String In filesys.GetFiles("D:\PDF")
If d > "" Then
d = d & vbcrlf & filesys.GetName(f1)
Else
d = filesys.GetName(f1)
End If
dr("第一列") = d
Next
| 
加好友 
发短信
Post By：2015/3/18 16:45:00 [显示全部帖子]
