Foxtable(狐表) → 用户栏目 → 专家坐堂 → 文件管理问题：指定目录下取得所有文件，赋值给文件列


  共有5259人关注过本帖树形打印复制链接

主题：文件管理问题：指定目录下取得所有文件，赋值给文件列
帅哥，在线噢！
有点蓝
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110669 积分：563259 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：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
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110669 积分：563259 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/9/5 22:11:00 [显示全部帖子]

如果是2楼的代码，说明目录里文件多。或者是表事件触发了其它代码又重复获取文件

如果是其他人代码，发上来看啊
 回到顶部
帅哥，在线噢！
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110669 积分：563259 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/9/6 15:40:00 [显示全部帖子]

要么目录里文件多。要么是表事件触发了其它代码又重复获取文件，形成死循环

 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110669 积分：563259 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/9/6 17:24:00 [显示全部帖子]

多少个文件？循环增加了多少行？花了多长时间？

 回到顶部
帅哥，在线噢！
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110669 积分：563259 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/9/7 13:31:00 [显示全部帖子]

代码放到按钮里执行，不要放到表事件

 回到顶部
帅哥，在线噢！
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110669 积分：563259 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/9/12 20:27:00 [显示全部帖子]


 回到顶部
帅哥，在线噢！
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110669 积分：563259 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/9/22 9:12:00 [显示全部帖子]

这种问题试试不就知道了

 回到顶部
帅哥，在线噢！
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110669 积分：563259 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/9/23 8:52:00 [显示全部帖子]

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
    r("产品名称")= FileSys.GetName (fl)
Next
Next

如果还有多层子目录，使用递归：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=117734
 回到顶部
帅哥，在线噢！
有点蓝
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110669 积分：563259 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/9/24 8:31:00 [显示全部帖子]

r("本地根目录") = dir

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 5 次数据查询