Getting html details (VBScript)

htmlTitleList.vbs

'Reference: <http://www.visualbasicscript.com/tm.aspx?high=&m=95638&mpage=1>
Option Explicit

Dim fso : Set fso = CreateObject("Scripting.FileSystemObject")
Dim files : Set files = fso.GetFolder("C:\test\").Files
Dim file
For Each file In files
    If file.Type = "Firefox Document" Then '<-- update for your system
        Dim doc : Set doc = CreateObject("htmlfile")
        doc.write fso.OpenTextFile(file.Path).ReadAll()
        WScript.Echo doc.title
        doc.title = doc.title & " (Modified)"
        WScript.Echo doc.documentElement.outerHTML
    End If
Next

@iisboy I believe "htmlfile" is equivalent to Internet Explorer 6, and therefore supports ECMAScript version 3. Which means no JSON object.

Perhaps using a 3rd party library would help?

• https://translate.google.com/translate?sl=auto&tl=en&u=http://demon.tw/my-work/vbs-json.html
• https://www.aspjson.com/

@mlhaufe:thanks for your help ,i just make a test .the result:in win7+IE10,or in 2012+,my code run all in well.