主题：[分享]一键发布

自定义写了一段代码，可以一次性生成发布程序（包括环境、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

这样的功能是迟早的事。
我是看到有人提到这个问题，先解大家的急。