主题：文件管理问题：指定目录下取得所有文件，赋值给文件列

For Each dir As String In FileSys.GetDirectories(e.Form.Controls("TextBox1").text)

    Dim r As Row

    For Each fl As String In FileSys.GetFiles(dir)

        r =  Tables("企业资料库").addnew

        r("本地根目录") = fl   换成dir  只能读出文件夹  不能读出文件

        r("资料名称")= FileSys.GetName (fl)

    Next

Next

还有递归函数怎么结合进去