主题：[分享]制作升级文件20140815更新

此段代码，可以达到5楼的要求。

Dim FoxDate As String = filesys.ReadAllText(ProjectPath & "\catch\version.txt",Encoding.Default)

Dim yswj2 As String = ProjectPath & "update\update.txt"

Dim s As String = Format(PublishDate, "yyyy-MM-dd") & "|"& FoxDate &""

FileSys.WriteAllText( yswj2 , s, False, Encoding.Default)

还是5楼高明，学习。