- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [分享]一键发布 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=4639)
-- 发布时间：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编辑过]
-- 发布时间：2009/10/16 13:28:00
--
羡慕，都发布项目了
-- 发布时间：2009/10/16 13:34:00
--
顶。
建议将此思路纳入foxtable项目发布功能中，使得发布功能更智能一点。自动形成发布系统。自动拷贝相关文件，自动删除FoxDB文件，自动压缩文件。自动创建文本文件DefaultProject.txt。
后续再考虑实现多个项目共享一个环境就好了。
-- 发布时间：2009/10/16 13:34:00
--
先收藏了～ 呵呵
-- 发布时间：2009/10/16 13:37:00
--
这个得顶，收藏！
-- 发布时间：2009/10/16 13:39:00
--
以下是引用yuanbin在2009-10-16 13:34:00的发言：
顶。
建议将此思路纳入foxtable项目发布功能中，使得发布功能更智能一点。自动形成发布系统。自动拷贝相关文件，自动删除FoxDB文件，自动压缩文件。自动创建文本文件DefaultProject.txt。
后续再考虑实现多个项目共享一个环境就好了。
支持，呵呵
-- 发布时间：2009/10/16 13:40:00
--
收藏了! 呵呵
-- 发布时间：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)
自定义写了一段代码，可以一次性生成发布程序（包括环境、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大师的建议，大家仅需要输入这些名称即可！
-- 发布时间：2009/10/16 13:45:00
--
以下是引用yuanbin在2009-10-16 13:34:00的发言：
顶。
建议将此思路纳入foxtable项目发布功能中，使得发布功能更智能一点。自动形成发布系统。自动拷贝相关文件，自动删除FoxDB文件，自动压缩文件。自动创建文本文件DefaultProject.txt。
后续再考虑实现多个项目共享一个环境就好了。
强列支持，望老总考虑！！！
-- 发布时间：2009/10/16 13:49:00
--
哈哈，大家的呼声几乎一边倒，我不下载了，等更新，先把狗狗饿几天！
