Foxtable(狐表)用户栏目专家坐堂 → 局域网自动升级


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

主题:局域网自动升级

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


加好友 发短信
等级:九尾狐 帖子:2649 积分:19384 威望:0 精华:1 注册:2008/9/12 9:19:00
局域网自动升级  发帖心情 Post By:2021/7/26 7:02:00 [只看该作者]

在局域网外开发的系统设置了自动升级路径,将开发生成的系统Publish文件夹和共享文件夹拿到局域网内使用,不能自动升级,有什么办法取代项目属性中的路径吗?

图片点击可在新窗口打开查看此主题相关图片如下:snap2.jpg
图片点击可在新窗口打开查看

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106714 积分:542765 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/7/26 8:47:00 [只看该作者]

参考:http://www.foxtable.com/webhelp/topics/2934.htm

UpdatePath = "新的xx路径"
Syscmd.Project.Update(False,False)

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


加好友 发短信
等级:九尾狐 帖子:2649 积分:19384 威望:0 精华:1 注册:2008/9/12 9:19:00
  发帖心情 Post By:2021/7/26 9:31:00 [只看该作者]

是这样吗?tp.txt的文本文件记录了地址(\\计算机名\共享文件夹)
Dim Fl As String 
F1= ProjectPath & "tp.txt"
UpdatePath = F1

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106714 积分:542765 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/7/26 9:37:00 [只看该作者]

Dim Fl As string = FileSys.ReadAllText(ProjectPath & "tp.txt")
UpdatePath = F1

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


加好友 发短信
等级:九尾狐 帖子:2649 积分:19384 威望:0 精华:1 注册:2008/9/12 9:19:00
  发帖心情 Post By:2021/7/26 19:20:00 [只看该作者]

Dim Fl As string = FileSys.ReadAllText(ProjectPath & "tp.txt")
UpdatePath = F1
提示:未知的编译错误

 回到顶部
帅哥,在线噢!
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106714 积分:542765 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/7/26 20:36:00 [只看该作者]

把项目文件复制到其它目录打开,注意项目路径和项目名称不能有括号等特殊字符,打开后测试可以提示详细的错误。

代码在什么事件的?

 回到顶部