踏遍各论坛求高手修改一段VBS代码! 求高手修改一段VBS代码!

求高手修改一段VBS代码!

Dim H, S Set H = CreateObject("Microsoft.XMLHTTP") H.Open "GET", "http://www.163.com/test.exe", False

'网络中的文件URL H.send Set S = CreateObject("ADODB.Stream") S.Type = 1 S.Open S.write H.Responsebody S.savetofile "c:\test.exe", 2 '本地保存文件名 S.Close

上面那段VBS只要双击,就会自动下载链接上面的文件,但是如果链接是错误的,它

也会在C盘生成一个错误的test.exe文件,就是说双击以后,如果链接是正确的,它会

自动下载文件,如果链接是错,他也会生成一个错误的test.exe文件,

请高手加个校验服务器文件!!!如果有则下载,如果没有则不下载!

万分感谢

Dim H, S Set H = CreateObject("Microsoft.XMLHTTP") h.Open "GET", "http://www.163.com/test.exe", False

'网络中的文件URL h.send If h.getResponseHeader("Last-Modified") = "" Then '可以根据ResponseHeader中的信息来判断，如果Last-Modified为空，肯定文件是不存在的，这不是唯一的依据，你也可以通过其它信息，比如content-type、content-lenght来判断。 MsgBox "文件不存在！" Else Set s = CreateObject("ADODB.Stream") s.Type = 1 s.Open s.write h.responseBody s.SaveToFile "c:\test.exe", 2 '本地保存文件名 s.Close End If