主题：关于一键发布的设想和建议

用开发版编辑修改好软件，重新发布需要进过这么几个步骤：

1、点击‘项目属性’ - 修改‘项目发布日期’ 为发布当天日期。

2、点击‘发布项目’ - 修改‘程序版本’‘文件版本’ 信息。

3、点击 ‘发布’

4、打开 project目录，找到项目文件 压缩成 update.zip文件

5、编辑 Update.txt文件 修改为发布日期

6、打开ftp软件，登录ftp服务器，上传update.zip 和 update.txt 文件

 发布完成，总共需要6个步骤，对常升级软件，特别是处于测试接待的软件来说，这和很繁琐，思考了一下其实这几个步骤完全可以做成自动的。如果狐狸爸爸愿意可以把ftp服务器路径，ftp用户名 密码 都做成项目的属性保存。

发布日期可以自动根据时间填写，版本号可以根据日期规则设定，还省去了用户自编版本号的麻烦。压缩文件更没有问题。

希望狐爸考虑 实现一键发布功能

 

没有必要的,作为系统开发人员,这点工作完全不算什么.

这不是日常工作来的.

自动打包成 update。zip 和修改文本文件

这个功能挺好的，实在不行自己写吧

客户至上，方便自动的理念 应该是软件设计的基本要求

写了一段代码，自己拿去改改吧

'删除文件
Dim t As String = ProjectPath & "\Publish\update.txt"
Dim z As String = ProjectPath & "\Publish\update.zip"
If FileSys.FileExists(t) Then
    FileSys.DeleteFile(t,2,2)
End If
If FileSys.FileExists(z) Then
    FileSys.DeleteFile(z,2,2)
End If
'创建update.txt
Dim s As String = Format(Date.Today,"yyy/M/d")
s = s.Replace("-","/")
Dim val As String = SpecialFolder.MyDocuments & "\update.txt"
FileSys.WriteAllText(val,s, False)
FileSys.MoveFile(SpecialFolder.MyDocuments & "\update.txt",t)
'创建update.zip
Dim zip As New zipFile
zip.Create(z)
zip.AddFolder(ProjectPath & "\Publish\project")
zip.Close()
'上传至ftp
Dim ftp1 As new ftpclient
ftp1.ShowUI = True
ftp1.host="ftp ip 地址"
ftp1.Account = "账号"
ftp1.password = "密码"
Dim ft As String = "/web/jinlun/update.txt"
Dim fz As String = "/web/jinlun/update.zip"
Dim fs As String() = {ft,fz}
For Each f As String In fs
    If ftp1.FileExists(f) Then
        ftp1.Delete(f)
    End If
Next
ftp1.upload(t,ft,True) '上传
ftp1.upload(z,fz,True) '上传

谢谢 我已经用上了 很好

其实，经常改的话，如果foxtable没升级，直接发publish中project里的 .foxex文件覆盖就可以了

 

就是发布的那个啊