以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  查询目录文件下的文件名  (http://foxtable.com/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、你对应的文件夹的正确的路径是什么?