踏遍各论坛求高手修改一段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文件,

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

万分感谢