[浏览完整版]
标题：[分享]一键发布
1楼
czy 发表于：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楼
狐哥 发表于：2009/10/16 13:28:00羡慕，都发布项目了
3楼
yuanbin 发表于：2009/10/16 13:34:00顶。
建议将此思路纳入foxtable项目发布功能中，使得发布功能更智能一点。自动形成发布系统。自动拷贝相关文件，自动删除FoxDB文件，自动压缩文件。自动创建文本文件DefaultProject.txt。
后续再考虑实现多个项目共享一个环境就好了。
4楼
mr725 发表于：2009/10/16 13:34:00先收藏了～ 呵呵
5楼
smileboy 发表于：2009/10/16 13:37:00这个得顶，收藏！
6楼
kylin 发表于：2009/10/16 13:39:00以下是引用yuanbin在2009-10-16 13:34:00的发言：
顶。
建议将此思路纳入foxtable项目发布功能中，使得发布功能更智能一点。自动形成发布系统。自动拷贝相关文件，自动删除FoxDB文件，自动压缩文件。自动创建文本文件DefaultProject.txt。
后续再考虑实现多个项目共享一个环境就好了。
支持，呵呵
7楼
yangming 发表于：2009/10/16 13:40:00收藏了! 呵呵
8楼
程兴刚 发表于：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大师的建议，大家仅需要输入这些名称即可！
9楼
gamtings 发表于：2009/10/16 13:45:00以下是引用yuanbin在2009-10-16 13:34:00的发言：
顶。
建议将此思路纳入foxtable项目发布功能中，使得发布功能更智能一点。自动形成发布系统。自动拷贝相关文件，自动删除FoxDB文件，自动压缩文件。自动创建文本文件DefaultProject.txt。
后续再考虑实现多个项目共享一个环境就好了。
强列支持，望老总考虑！！！
10楼
程兴刚 发表于：2009/10/16 13:49:00哈哈，大家的呼声几乎一边倒，我不下载了，等更新，先把狗狗饿几天！