[分享]一键发布 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [分享]一键发布

共有20780人关注过本帖树形打印复制链接主题：[分享]一键发布

czy

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

加好友

发短信

等级：超级版主帖子：6318 积分：33963 威望：0 精华：10 注册：2008/8/31 20:56:00

[分享]一键发布 发帖心情

Post By：2009/10/16 13:25:00 [只看该作者]

自定义写了一段代码，可以一次性生成发布程序（包括环境、DefaultProject.txt，删除Publish目录）。
发布文件保存地址为开发版安装目录的上一级。

说明，代码中的“狐表环境”为环境文件夹名称，狐表开发版与环境保存在同一层目录，大家可以根据自己的喜好进行修改。

Dim Name As String = IO.Path.GetFileNameWithoutExtension(projectFile)
Syscmd.Project.PublishProject()
FileSys.CopyDirectory (ApplicationPath & "..\狐表环境",ApplicationPath & "..\程序发布",True)
FileSys.CopyDirectory (ProjectPath & "\Publish",ApplicationPath & "..\程序发布\" & Name,True)
FileSys.WriteAllText(ApplicationPath & "..\程序发布\DefaultProject.txt",Name & "-:special:1:- & Name & ".FoxEx", False)
FileSys.MoveFile(ApplicationPath & "..\程序发布-:special:1:- & Name & "\System.Menu",ApplicationPath & "..\程序发布\System.Menu")
FileSys.DeleteDirectory(ProjectPath & "\Publish",2,3)

怎么会乱码呢？

上传一个文本文件。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:一键发布.txt

[此贴子已经被作者于2009-10-16 15:19:57编辑过]

狐哥

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

加好友

发短信

等级：三尾狐帖子：719 积分：5181 威望：0 精华：1 注册：2008/9/24 10:41:00

Post By：2009/10/16 13:28:00 [只看该作者]

羡慕，都发布项目了

yuanbin

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

加好友

发短信

等级：贵宾帖子：102 积分：880 威望：0 精华：4 注册：2008/8/31 21:47:00

Post By：2009/10/16 13:34:00 [只看该作者]

顶。
建议将此思路纳入foxtable项目发布功能中，使得发布功能更智能一点。自动形成发布系统。自动拷贝相关文件，自动删除FoxDB文件，自动压缩文件。自动创建文本文件DefaultProject.txt。
后续再考虑实现多个项目共享一个环境就好了。

mr725

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

加好友

发短信

等级：MVP荣誉狐帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00

Post By：2009/10/16 13:34:00 [只看该作者]

先收藏了～呵呵

smileboy

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

加好友

发短信

好心情

等级：超级版主帖子：715 积分：5564 威望：0 精华：1 注册：2008/8/31 20:45:00

Post By：2009/10/16 13:37:00 [只看该作者]

这个得顶，收藏！

kylin

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

加好友

发短信

F6
等级：狐精帖子：3036 积分：19229 威望：0 精华：2 注册：2008/9/1 7:50:00

Post By：2009/10/16 13:39:00 [只看该作者]

以下是引用yuanbin在2009-10-16 13:34:00的发言：

支持，呵呵

yangming

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

加好友

发短信

等级：超级版主帖子：4109 积分：23338 威望：0 精华：21 注册：2008/9/1 20:07:00

Post By：2009/10/16 13:40:00 [只看该作者]

收藏了! 呵呵

程兴刚

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

加好友

发短信

等级：超级版主帖子：7259 积分：40814 威望：0 精华：16 注册：2008/8/31 23:23:00

Post By：2009/10/16 13:45:00 [只看该作者]

以下是引用czy在2009-10-16 13:25:00的发言：

自定义写了一段代码，可以一次性生成发布程序（包括环境、DefaultProject.txt）。
发布文件保存地址为开发版安装目录的上一级。

说明，代码中的“狐表环境”为环境文件夹名称，狐表开发版与环境保存在同一层目录，大家可以根据自己的喜好进行修改。

Dim Name As String = IO.Path.GetFileNameWithoutExtension(projectFile)
Syscmd.Project.PublishProject()
FileSys.CopyDirectory (ApplicationPath & "..\狐表环境",ApplicationPath & "..\程序发布",True)
FileSys.CopyDirectory (ProjectPath & "\Publish",ApplicationPath & "..\程序发布\" & Name,True)
FileSys.WriteAllText(ApplicationPath & "..\程序发布\DefaultProject.txt",Name & "-:special:1:- & Name & ".FoxEx", False)

[此贴子已经被作者于2009-10-16 13:29:20编辑过]

顶，我的狗狗还没到，我以为开发版都有这功能，贺老师可以考虑yuanbin大师的建议，大家仅需要输入这些名称即可！