怎样用VB自动更新应用程序?

s=trim(command())

'取得命令行参数

应该是这个形式:FastCopy.exe

网络目录名，文件名

's的返回值是

网络目录名，文件名

如:“\\liang\,myadd.exe"

'然后为了区分开目录名和文件名,就查找","号

p=instr(1,s,",")

'如果找到就分别取“,”前面的目录和后面的应用程序名。

其实要写自动更新程序很简单的。。。我写过几次，这里要看你想写详细的（检测+下载），还是简单的（下载）

原理很简单，不要什么SQL。

既然要用FTP，那么需要一个控件，MSINET.ocx也就是Microsoft

Internet

Transfer

Control

6.0

这个控件的属性protocol设为ICFTP，

首先连接

FTP服务器

：

Inet1.URL

=

"你的FTP地址"

Inet1.UserName

=

"FTP用户名"

Inet1.Password

=

"FTP密码"

下载

配置文件

（检测是否需要更新）

Inet1.Execute

,

"GET

Config.ini

"

&

App.Path

&

"\Config.ini"

'下载配置文件(Config.ini)到本地，然后读取这个文件里面的内容和本地的是否是一样的，或者哪些不一样，需要下载哪些，

然后就下载需要更新的文件

Inet1.Execute

,

"GET

你要下载的文件.exe

"

&

App.Path

&

"\下载到的目录和文件名"

这样就可以实现一个简单的更新了。。。

要调用其它的更新程序，因为程序运行时文件是不许覆盖的。其过程如下：

原程序在运行时从服务器获得最新的版本号，然后和自己的版本号进行比较。

原程序发现新版本后要调用更新程序，然后关闭本程序，由更新程序更新后，再由更新程序启动原程序，更新程序再关闭自己。

更新程序要自己写一个，能够从服务器下载更新配置文件，并从中获得要更新的文件名和版本号。

---