| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 文件夹及子文件夹获取到表格 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=171730) |
||
| -- 作者：yifan3429 -- 发布时间：2021/9/7 20:22:00 -- 文件夹及子文件夹获取到表格 Dim r As Row For Each fl As String In FileSys.GetFiles("F:\\cityw2021\\iPad") r = Tables("去问问").addnew Dim ifo As new FileInfo(fl) r("第二列") = ifo.Name r("第一列")=ifo.Path Next 上面的的代码只能获取指定文件夹的文件 F:\\cityw2021\\iPad 下面会有多个或是多级子文件夹怎么动态填入到 第一列
|
||
| -- 作者：有点蓝 -- 发布时间：2021/9/7 20:36:00 -- 使用递归：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=117734 http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=56286
|
||
| -- 作者：yifan3429 -- 发布时间：2021/9/7 21:17:00 -- 通过文件递归函数 按钮代码 如何把目录写入第一列 文件名写入第二列呢 r("第二列") = ifo.Name r("第一列")=ifo.Path
[此贴子已经被作者于2021/9/7 21:17:14编辑过]
|
||
| -- 作者：有点蓝 -- 发布时间：2021/9/7 21:35:00 --
|