| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- 文件管理问题：指定目录下取得所有文件，赋值给文件列 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=171626) |
| -- 作者：xnsiwei -- 发布时间：2021/9/5 5:33:00 -- 文件管理问题：指定目录下取得所有文件，赋值给文件列 文件管理问题：指定目录下取得所有文件，赋值给文件列中的各行（一个文件一行） 1、例如从目录“c:\\data”下取得所有文件，赋值给文件列： Dim lst As New List(of String)For Each fl As String In FileSys.GetFiles("c:\\data") lst.Add(fl) Next Tables("表A").Current.DataRow.Lines("文件") = lst 2、上述代码把目录“c:\\data”下取得所有文件都赋值到了同一个单元格中，能否赋值到同一列的不同的行，就是每个文件一个单元格
|
| -- 作者：有点蓝 -- 发布时间：2021/9/5 20:24:00 -- dim r as row For Each fl As String In FileSys.GetFiles("c:\\data") r = Tables("表A").addnew r("文件") = fl
Next |
| -- 作者：xnsiwei -- 发布时间：2021/9/5 21:40:00 -- 不断循环增行，停不下来 |
| -- 作者：有点蓝 -- 发布时间：2021/9/5 22:11:00 -- 如果是2楼的代码，说明目录里文件多。或者是表事件触发了其它代码又重复获取文件 如果是其他人代码，发上来看啊
|
| -- 作者：xnsiwei -- 发布时间：2021/9/6 15:38:00 -- Dim r As Row For Each fl As String In FileSys.GetFiles("D:\\常用软件") r = Tables("文档资料").addnew r("文件") = fl Next
|
| -- 作者：有点蓝 -- 发布时间：2021/9/6 15:40:00 -- 要么目录里文件多。要么是表事件触发了其它代码又重复获取文件，形成死循环 |
| -- 作者：xnsiwei -- 发布时间：2021/9/6 17:14:00 -- 没别的代码，只有这个 |
| -- 作者：有点蓝 -- 发布时间：2021/9/6 17:24:00 -- 多少个文件？循环增加了多少行？花了多长时间？ |
| -- 作者：xnsiwei -- 发布时间：2021/9/7 12:05:00 -- 实验用的，没几个文件，开头没反应，重置列或者删除后就出现这个现象，一直增加行，停不下来，只能终止整个程序了 |
| -- 作者：有点蓝 -- 发布时间：2021/9/7 13:31:00 -- 代码放到按钮里执行，不要放到表事件 |