以文本方式查看主题
- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 查询目录文件下的文件名 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=130728)
|
-- 作者:表叔
-- 发布时间: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编辑过]
|
-- 作者:有点蓝
-- 发布时间:2019/1/30 17:30:00
--
e.DataRow.Lines("文件名") = FileSys.GetFiles("\\\\Win-ukpedgbcajr\\财务部狐表业务系统\\成本核算\\Attachments\\" & e.DataRow("附件"))
|
-- 作者:表叔
-- 发布时间:2019/1/31 9:52:00
--
此主题相关图片如下:微信图片_20190131094939.png
[此贴子已经被作者于2019/1/31 9:58:45编辑过]
|
-- 作者:有点甜
-- 发布时间: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
|
-- 作者:表叔
-- 发布时间:2019/1/31 10:34:00
--
前面的代码可以找到文件名了,只是有些文件夹没了出现这个情况 此主题相关图片如下:微信图片_20190131094939.png
|
-- 作者:有点甜
-- 发布时间:2019/1/31 10:44:00
--
你路径写错了。
1、你 e.DataRow("附件") 的值是什么?
2、你对应的文件夹的正确的路径是什么?
|