标题: 求助. vbs多项判断出错！ [打印本页]

---

作者: ajon911     时间: 2009-9-15 00:17    标题: 求助. vbs多项判断出错！

判断网络文件是否存在出错！
以下vbs都报告"不存在"，如何让判断正确跳转执行？（正确应该报告"存在"的，如果把用于判断"d:\123.txt"文件修改的部分去掉就能正确报告文件"存在"）

On Error Resume Next
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile("d:\123.txt")
md =DateValue(f.DateLastModified)
nd=date
if md<>nd then
url="http://www.baidu.com/img/baidu_logo.gif"
Set xmlHTTP=createobject("Microsoft.XMLHTTP")
xmlhttp.open "GET", URL, false
xmlhttp.send
if err.number <> 0 then
flagText = "google.com"
else
flagText = left(xmlhttp.responseText, 1703)
set regex = new RegExp
regEx.Global = True
regex.pattern =  "^\s*"
flagText = regex.replace(flagText, "")
regex.pattern =  "^<.*>"
flagText = regex.replace(flagText, "google.com")
flagText = left(flagText, 10)
end if
If flagText <> "google.com" Then
msgbox "存在"
else
msgbox "不存在"
end if
else
msgbox "今天修改过"
end if

---

作者: ywjco     时间: 2009-9-15 13:32
试过你的代码，没有问题。只是要先建立“d:\123.txt”这个文件。
***************************************

On Error Resume Next
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile("d:\123.txt")
md=DateValue(f.DateLastModified)
nd=date
   
if md<>nd then
        url="http://www.baidu.com/img/baidu_logo.gif"
        Set xmlHTTP=createobject("Microsoft.XMLHTTP")
        xmlhttp.open "GET", URL, false
        xmlhttp.send
        if err.number <> 0 then
                flagText = "google.com"
        else
                flagText = left(xmlhttp.responseText, 1703)
                set regex = new RegExp
                regEx.Global = True
                regex.pattern =  "^\s*"
                flagText = regex.replace(flagText, "")
                regex.pattern =  "^<.*>"
                flagText = regex.replace(flagText, "google.com")
                flagText = left(flagText, 10)
        end if
   
        If flagText <> "google.com" Then
                msgbox "存在"
        else
                msgbox "不存在"
        end if
else
        msgbox "今天修改过"
end if

********************************************
最后，还应加上两行：
Set fso = Nothing
Set f =Nothing