以下是引用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大师的建议，大家仅需要输入这些名称即可！
加好友 
发短信
Post By：2009/10/16 13:45:00 [显示全部帖子]
Post By：2009/10/16 13:49:00 [显示全部帖子]
