主题：[求助]关于多文件，如何自动获取指定目录的文件

类似：

For Each dir As String In FileSys.GetDirectories("C:\foxtable")
    For Each fl As String In filesys.GetFiles(dir)
        Dim dr As DataRow = DataTables("表A").AddNew
        dr("款号") = dir
        dr("文件") = filesys.GetName(dir) & "\" & filesys.GetName(fl)
    Next
Next

在命令窗口执行，具体具体自己调整