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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请尽快测试一个问题:

共有2182人关注过本帖树形打印复制链接主题：请尽快测试一个问题:

blackzhu

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

加好友

发短信

等级：狐仙帖子：9875 积分：57602 威望：0 精华：15 注册：2008/9/1 9:45:00

请尽快测试一个问题: 发帖心情

Post By：2016/6/17 15:00:00 [显示全部帖子]

BeforeOpenProject

在打开项目之前执行，可以在此进行一些环境上的判断，决定是否打开项目。

e参数属性：

File：字符型，表示正在打开的项目文件名称，含路径。
Cancel: 逻辑型，设为True，拒绝打开项目。
HideSplashForm：逻辑型，设为True，关闭Foxtable的启动封面。

示例

假定需要在打开项目前，检查项目文件目录中，是否存在名为ip.txt的文件，如果不存在，就拒绝打开项目：

Dim s As String = FileSys.GetParentPath(e.File) & "\ip.txt"
If FileSys.FileExists(s) = False Then
    e.Cancel = True
    e.HideSplashForm = True
    MessageBox.show("文件丢失,无法打开此项目.")
End if

这个事件发布后不能读取全路径

我用 ProjectPath & "****\ip.txt" 这个方法也是一样情况.

害得我一个上午两个人在找错误原因.

[此贴子已经被作者于2016/6/17 15:03:04编辑过]

blackzhu

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

加好友

发短信

等级：狐仙帖子：9875 积分：57602 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2016/6/17 15:41:00 [显示全部帖子]

你怎么老是正常

下载信息 [文件大小：下载次数： ]
点击浏览该文件:测试.zip

里面的路径需要加个 \

[此贴子已经被作者于2016/6/17 15:48:06编辑过]

blackzhu

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

加好友

发短信

等级：狐仙帖子：9875 积分：57602 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2016/6/17 15:41:00 [显示全部帖子]

这个是开源的. 你试下吧

blackzhu

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

加好友

发短信

等级：狐仙帖子：9875 积分：57602 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2016/6/17 15:53:00 [显示全部帖子]

我和同事找出原因了. 这个事件我以前一直用的是ProjectPath,从来没有出现过问题,现在用就获取不了全路径.

现在用这个 FileSys.GetParentPath(e.File) 没有问题.

blackzhu

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

加好友

发短信

等级：狐仙帖子：9875 积分：57602 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2016/6/17 16:14:00 [显示全部帖子]

以下是引用大红袍在2016/6/17 16:04:00的发言：

你合成的路径本来就不正确

Dim s As String = FileSys.GetParentPath(e.File) & "/dll\测试.txt"
msgbox(s)
If FileSys.FileExists(s) = False Then
    e.Cancel = True
    e.HideSplashForm = True
    MessageBox.show("文件丢失,无法打开此项目.")
End If

我重新解释了.

下一主题 >> << 上一主题

主题：请尽快测试一个问题: