vb,这个Update.txt升级配置怎么写？请看源码段

Update.txt写成三行，各行的内容分别如下，每行用回车换行符间隔（即行末必须回车）：

1.3.2'第一行是版本号

up_QQ.exe'第二行是要升级的程序名称

860.88 Kb '第三行是文件大小

你问题补充中两行改散代码，第一行意思“如果服务器上Update.txt内第一行的版本号小于等于当前软件版本号则退出当前升级过程”

你问题补充中两行代码，第二行意思“如果服务器版本号大于当纯歼友前版本号并且向用户提醒中被用户选择了不升级（vbNo）那么.....(这里做槐应该也是退出当前升级过程Exit Sub)”

呵呵历铅败，我前两天也在激卖找这个。后来发现微软公司有一个官方发布的FTP程序VB6源码，功能很详尽。使用了Microsoft Internet Transfer控件。肢颤

相关页面：

源码地址：

可以在服务器端放2个文件，一个假如是Update.ini，还有一个就是你的程序，假如是http://www.abc.com/1.exe，在本地还要有一个文件，存放设置，假如是config.ini

Update.ini:

[update]

new=1.0.1

config.ini:

[config]

ver=1.0.0

代码：穗渗亩

Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long

Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long

Private Sub Form_Load()

r = URLDownloadToFile(0,"http://www.abc.com/Update.ini", App.Path &"\Update\u.ini", 0, 0)

'下载好文件后，就开始读ini了

Dim ret As Long

Dim nowv, newv As String

nowv = Space$(1000) '事先定义读取值的字串宽度

'读出新版本和旧版本

ret = GetPrivateProfileString("update", "new", "", newv, 1000, App.Path &"\Update\Update.ini")

ret = GetPrivateProfileString("config", "ver", "", nowv, 1000, App.Path &"\Update\Update.ini")

'如果新版本和旧版本不同，则开始下载新版本

If nowv <猜森>newv Then

r = URLDownloadToFile(0,"http://www.abc.com/1.exe", App.Path &"\Update\1.exe", 0, 0)

End Sub

写了这么喊携多，楼主是不是给点分，多给点

一楼说文件类型，显然是没有看题

看到二楼说的，我无语~~

---