主题：[求助]如何同时自动获取指定目录的子目录名和文件

For Each dir As String In FileSys.GetDirectories("f:\Program Files (x86)\360")
    Dim v As String = ""
    Dim dr As DataRow = DataTables("表A").AddNew
    dr("第一列") = filesys.GetName(dir)
    For Each fl As String In filesys.GetFiles(dir)
        If v > "" Then
            v =  v & vbcrlf & filesys.GetName(fl)
        Else
            v = filesys.GetName(fl)
        End If
    Next
    dr("第二列") = v
Next

这个代码可以列出360这个文件夹下的子目录名，但是无法同时列出360文件夹内的文件名。换句话说第一列中只有子目录名，无法列出文件名。

求助大神

是的，但是子目录内也有子目录和文件。我想达到一种就是在一行中列数显示的是文件夹路径，在行的末尾显示的是文件名

 表A /      第一列   | 第二列                  |第三列|第四列 |第五列 |第六列 | 第七列     |第八列

 第一行   本地磁盘F/Program Files (x86)/360/360Safe/360zip/config/zdefaultskin/zdefaultskin.exe