- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 加载文件路径问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=96181)
-- 发布时间：2017/2/15 7:59:00
-- 加载文件路径问题
打开窗口时加载产品目录文件(文件在本机)
方法1
Dim trv As WinForm.TreeView = e.Form.Controls("产品目录")
trv.Load("F:\\WgCableERP数据\\产品目录.foxtr")
方法2
Dim trv As WinForm.TreeView = e.Form.Controls("产品目录")
Dim Fl As String = ProjectPath & "tp.txt"
fl = FileSys.ReadAllText(fl,Encoding.Default)
trv.Load(fl & "产品目录.foxtr")
其中xp.txt文件中设置路径
F:\\WgCableERP数据\\
方法1可以加载,方法2提示找不到文件
另外,本机的计算机名是PC,在xp.txt文件中设置
\\\\PC\\WgCableERP数据\\
也找不到文件
为什么?
[此贴子已经被作者于2017/2/15 7:59:15编辑过]
-- 发布时间：2017/2/15 8:42:00
--
弹出路径看看是什么内容
msgbox(fl & "产品目录.foxtr")
-- 发布时间：2017/2/15 10:01:00
--
此主题相关图片如下：snap1.png
-- 发布时间：2017/2/15 10:21:00
--
把回车去掉。
可以修改txt文件内容，可以改代码。
Dim trv As WinForm.TreeView = e.Form.Controls("产品目录")
Dim Fl As String = ProjectPath & "tp.txt"
fl = FileSys.ReadAllText(fl.Replace(chr(10), "").replace(chr(13), ""),Encoding.Default)
trv.Load(fl & "产品目录.foxtr")
-- 发布时间：2017/2/15 10:28:00
--
谢谢，回车去掉就可以啦。但是我改成
\\\\PC\\WGCableERP数据\\
这样就不行呢？我的计算机名是PC
-- 发布时间：2017/2/15 10:46:00
--
1、你这个文件夹，要设置成共享文件夹
2、在资源管理器测试对应的路径能否访问 \\\\计算机名或ip地址\\共享文件夹名 如果不能访问，就是你1没有设置正确。
-- 发布时间：2017/2/15 11:15:00
--
明白了谢谢