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


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

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

帅哥哟,离线,有人找我吗?
xnsiwei
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:454 积分:3241 威望:0 精华:0 注册:2019/11/3 22:21:00
文件管理问题:指定目录下取得所有文件,赋值给文件列  发帖心情 Post By: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”下取得所有文件都赋值到了同一个单元格中,能否赋值到同一列的不同的行,就是每个文件一个单元格

 回到顶部
帅哥哟,离线,有人找我吗?
xnsiwei
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:454 积分:3241 威望:0 精华:0 注册:2019/11/3 22:21:00
  发帖心情 Post By:2021/9/5 21:40:00 [显示全部帖子]

不断循环增行,停不下来

 回到顶部
帅哥哟,离线,有人找我吗?
xnsiwei
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:454 积分:3241 威望:0 精华:0 注册:2019/11/3 22:21:00
  发帖心情 Post By: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

 回到顶部
帅哥哟,离线,有人找我吗?
xnsiwei
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:454 积分:3241 威望:0 精华:0 注册:2019/11/3 22:21:00
  发帖心情 Post By:2021/9/6 17:14:00 [显示全部帖子]

没别的代码,只有这个

 回到顶部
帅哥哟,离线,有人找我吗?
xnsiwei
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:454 积分:3241 威望:0 精华:0 注册:2019/11/3 22:21:00
  发帖心情 Post By:2021/9/7 12:05:00 [显示全部帖子]

实验用的,没几个文件,开头没反应,重置列或者删除后就出现这个现象,一直增加行,停不下来,只能终止整个程序了

 回到顶部
帅哥哟,离线,有人找我吗?
xnsiwei
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:454 积分:3241 威望:0 精华:0 注册:2019/11/3 22:21:00
  发帖心情 Post By:2021/9/7 17:48:00 [显示全部帖子]

成功!,谢谢!

 回到顶部
帅哥哟,离线,有人找我吗?
xnsiwei
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:454 积分:3241 威望:0 精华:0 注册:2019/11/3 22:21:00
  发帖心情 Post By:2021/9/11 21:43:00 [显示全部帖子]

OK
[此贴子已经被作者于2021/9/11 21:43:25编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
xnsiwei
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:454 积分:3241 威望:0 精华:0 注册:2019/11/3 22:21:00
  发帖心情 Post By:2021/9/12 7:26:00 [显示全部帖子]

问题解决,谢谢!
问下,按照这个思路可以自动加载指定目录下的文件,但怎样可以自动加载目录?

 回到顶部
帅哥哟,离线,有人找我吗?
xnsiwei
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:454 积分:3241 威望:0 精华:0 注册:2019/11/3 22:21:00
  发帖心情 Post By:2021/9/20 11:22:00 [显示全部帖子]

同理可以把指定目录下取得所有文件夹,赋值给文件列中的各行(一个文件夹一行) 吗?


 回到顶部
帅哥哟,离线,有人找我吗?
xnsiwei
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:454 积分:3241 威望:0 精华:0 注册:2019/11/3 22:21:00
  发帖心情 Post By:2022/1/3 11:47:00 [显示全部帖子]

ok,放到按钮里,已解决

 回到顶部
总数 12 1 2 下一页