加载文件路径问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 加载文件路径问题

共有2091人关注过本帖树形打印复制链接主题：加载文件路径问题

实话实说

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

加好友

发短信

等级：九尾狐帖子：2649 积分：19390 威望：0 精华：1 注册：2008/9/12 9:19:00

加载文件路径问题 发帖心情

Post By：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编辑过]

有点蓝

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

加好友

发短信

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

Post By：2017/2/15 8:42:00 [只看该作者]

弹出路径看看是什么内容

msgbox(fl & "产品目录.foxtr")

实话实说

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

加好友

发短信

等级：九尾狐帖子：2649 积分：19390 威望：0 精华：1 注册：2008/9/12 9:19:00

Post By：2017/2/15 10:01:00 [只看该作者]

此主题相关图片如下：snap1.png

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：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")