有两个问题请大家帮忙解决一下:)。

user603

1、如何检查一个page中的所有链接都是有效的？
2、FSO对象可否一次创建多层目录？

user603

自己顶一下，静待高手的到来。。

黑羽祭

回复 1# user603


    问题一：以前收集了一个这样的函数

1. '=========================================================
   
2. ' Name: CheckAllLinkReachable
   
3. ' Summary: CheckAllLinkReachable
   
4. ' Parameters:
   
5. ' strBrowser: browser name
   
6. ' strPage: page name
   
7. ' strURLPattern: URL pattern you wan't to check. such as: ^http.*
   
8. ' Return: None
   
9. '==========================================================
   
10. Function CheckAllLinkReachable(strBrowser, strPage, strURLPattern)
    
11.     Dim blnReachable
    
12.     blnReachable = True
    
13.     Set objXML = CreateObject("Msxml2.XMLHTTP")
    
14.    
    
15.     ' Get all link on the page
    
16.     Set objDes = Description.Create
    
17.     objDes("micclass").Value = "Link"
    
18.     Set objLinkList = Browser(strBrowser).Page(strPage).ChildObjects(objDes)
    
19.     For i = 0 To objLinkList.Count() - 1
    
20.         ' Create XML HTTP Object
    
21.         strURL = objLinkList(i).GetROProperty("href")
    
22.         If RegExpTest(strURLPattern, strURL) Then
    
23.             objXML.Open "POST", strURL, false
    
24.             objXML.Send
    
25.             ' msgbox objXML.responseText
    
26.             print (objLinkList(i).GetROProperty("href") & " Ready State:" & objXML.readyState & " Status: " & objXML.status)
    
27.             If objXML.status <> "200" Then
    
28.                 blnReachable = False
    
29.             End If
    
30.             
    
31.             objXML.abort()
    
32.         End If
    
33.     Next
    
34.    
    
35.     Set objXML = Nothing
    
36.     CheckAllLinkReachable = blnReachable
    
37. End Function

复制代码

问题二：我觉得应该是可以的，但我vbs玩的没那么深
我的做法是写成个Function，在Function里将地址拆解一下，然后逐个调用个判断是否存在这样目录的Function，如果没有就调用个创建目录的Function。

user603

回复 3# 黑羽祭


    多谢大师指点，

user603

回复 3# 黑羽祭


   " If RegExpTest(strURLPattern, strURL) Then"
这句里面的正则表达式对象没有创建？

黑羽祭

回复 5# user603


    有什么问题么？不能用？我记得我用过一次，应该没有什么问题。

user603

回复 6# 黑羽祭


    报错的。应该没有这个函数吧。RegExpTest
只能正则表达式对象调用Test方法。

user603

回复 3# 黑羽祭


    知道了，RegExpTest(strURLPattern, strURL)应该是个自定义函数。

黑羽祭

回复 8# user603


    哦~想起来了，貌似还有个函数的，这个函数那时候我百度了一下就有了。