以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何判断项目运行状态  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=80361)
--  作者：黑苹果
--  发布时间：2016/1/21 11:26:00
--  如何判断项目运行状态
请问如何判断项目是运行在 开发状态还是 发布后的状态
--  作者：大红袍
--  发布时间：2016/1/21 11:26:00
--  

判断文件名即可。

 

msgbox(projectFile)
--  作者：大红袍
--  发布时间：2016/1/21 11:27:00
--  

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

 

.foxdb 就是开发环境的
--  作者：zhangchi96
--  发布时间：2016/6/11 20:28:00
--  
谢谢，既然获得了文件名，并且包含路径

请问：如何给使用者在使用时，把此文件创建一个快捷方式到桌面，且事先判断一下桌面是否有快捷方式。
--  作者：大红袍
--  发布时间：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