主题：[求助]大神帮我看下，笨死我算了

For Each d1 As String In FileSys.GetDirectories("g:\ce shi wen jian jia")
    Dim dr As DataRow = DataTables("表A").AddNew()
    dr("第一列") = filesys.GetName(d1)
    For Each d2 As String In FileSys.GetDirectories(d1)
        Dim dr As DataRow = DataTables("表A").AddNew
        dr("第二列") = filesys.GetName(d2)
        For Each d3 As String In FileSys.GetDirectories(d2)
            Dim dr As DataRow = DataTables("表A").AddNew()
            dr("第三列") = filesys.GetName(d3)
            Dim a As String = ""           
            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
            dr("第四列") = a
            Next
        Next
        Dim b As String = ""       
        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
        dr("第三列") = b
        Next
    Next
    Dim c As String = ""   
    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("第二列") = c
    Next
Next
For Each f1 As String In filesys.GetFiles("g:\ce shi wen jian jia")
Dim d As String = ""
Dim dr As DataRow = DataTables("表A").AddNew
        If d > "" Then
           d =  d & vbcrlf & filesys.GetName(f1)
        Else
           d = filesys.GetName(f1)
        End If
     dr("第一列") = d
Next