查询目录文件下的文件名 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 查询目录文件下的文件名

共有3028人关注过本帖树形打印复制链接主题：查询目录文件下的文件名

表叔

小大 1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：94 积分：1650 威望：0 精华：0 注册：2016/12/22 18:08:00

查询目录文件下的文件名 发帖心情

Post By：2019/1/30 15:09:00 [只看该作者]

e.DataRow("文件名")=FileSys.GetFiles("\\Win-ukpedgbcajr\财务部狐表业务系统\成本核算\Attachments\&'" & e.DataRow("附件") & "'")，这个代码会报错，颜色部分是“附件”列的数据，如果用该列的目录文件路径（"\\Win-ukpedgbcajr\财务部狐表业务系统\成本核算\Attachments\25T型车\25T型车\轨检车车上线槽模块”）运行代码，可以正常显示正确根目录下的文件内容：\\Win-ukpedgbcajr\财务部狐表业务系统\成本核算\Attachments\25T型车\25T型车\轨检车车上线槽模块\25T型车.xlsx，并且可以正常打开，现在求正代码！

[此贴子已经被作者于2019/1/31 9:54:47编辑过]

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110738 积分：563610 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/1/30 17:30:00 [只看该作者]

e.DataRow.Lines("文件名") = FileSys.GetFiles("\\Win-ukpedgbcajr\财务部狐表业务系统\成本核算\Attachments\" & e.DataRow("附件"))

表叔

小大 3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：94 积分：1650 威望：0 精华：0 注册：2016/12/22 18:08:00

Post By：2019/1/31 9:52:00 [只看该作者]

此主题相关图片如下：微信图片_20190131094939.png

[此贴子已经被作者于2019/1/31 9:58:45编辑过]

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/1/31 9:59:00 [只看该作者]

Dim ls As new List(Of String)
For Each f As String In FileSys.GetFiles("\\Win-ukpedgbcajr\财务部狐表业务系统\成本核算\Attachments\" & e.DataRow("附件"))
ls.add(FileSys.GetName(f))
Next

e.DataRow.Lines("文件名") = ls