Foxtable(狐表)用户栏目专家坐堂 → 如何判断项目运行状态


  共有2261人关注过本帖树形打印复制链接

主题:如何判断项目运行状态

帅哥哟,离线,有人找我吗?
黑苹果
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:50 积分:469 威望:0 精华:0 注册:2015/11/13 12:35:00
如何判断项目运行状态  发帖心情 Post By:2016/1/21 11:26:00 [只看该作者]

请问如何判断项目是运行在 开发状态还是 发布后的状态

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/1/21 11:26:00 [只看该作者]

判断文件名即可。

 

msgbox(projectFile)


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/1/21 11:27:00 [只看该作者]

.foxex 后缀的,就是发布后的

 

.foxdb 就是开发环境的


 回到顶部
帅哥哟,离线,有人找我吗?
zhangchi96
  4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:551 积分:5001 威望:0 精华:0 注册:2012/2/11 13:27:00
  发帖心情 Post By:2016/6/11 20:28:00 [只看该作者]

谢谢,既然获得了文件名,并且包含路径

请问:如何给使用者在使用时,把此文件创建一个快捷方式到桌面,且事先判断一下桌面是否有快捷方式。

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/6/12 1:06:00 [只看该作者]

比如

 

Dim wsh As object = CreateObject("WScript.Shell")
Dim PathLink As String =  SpecialFolder.DesktopDirectory & "/test.lnk"
If Not PathLink.ToLower.EndsWith(".lnk") Then
    PathLink = PathLink & ".lnk"
End If
Dim wshs As object = wsh.CreateShortcut(PathLink)
wshs.TargetPath = ProjectFile
wshs.Save()
wshs = Nothing
wsh = Nothing

 


 回到顶部