Vbscript 使用Navigate2时出现未指定的错误代码80004005

Vbscript 使用Navigate2时出现未指定的错误代码80004005,vbscript,Vbscript,好的,我已经更新了整个线程。我的文本文件上有4个URL,前2个或3个打开,但在打开第4个时,我的代码出现如下错误: Windows Script Host Script: [file path] Line: 23 Char: 3 Error: Unspecified error Code: 80004005 Source: (null) 就我所知: Option Explicit ' Constants Const ForReading = 1 Const navOpenInNewTab =

好的,我已经更新了整个线程。我的文本文件上有4个URL,前2个或3个打开,但在打开第4个时,我的代码出现如下错误:

Windows Script Host
Script: [file path]
Line: 23
Char: 3
Error: Unspecified error
Code: 80004005
Source: (null)
就我所知:

Option Explicit

' Constants
Const ForReading = 1
Const navOpenInNewTab = 2048

Dim oIE, filename, fso, f

Set oIE = CreateObject("InternetExplorer.Application")
oIE.Visible = True

filename = "C:\StartIt\urls.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(filename, ForReading)

Do Until f.AtEndOfStream
    If f.Line = 1 Then
        oIE.Navigate2 removeDelimiter(f.ReadLine)
    Else
        oIE.Navigate2 removeDelimiter(f.ReadLine), navOpenInNewTab ' This is line 23
    End if
Loop
Set oIE = Nothing
f.Close

WScript.Quit

' Methods
Function removeDelimiter(s)
  If Right(s, 1) = "," Then
    removeDelimiter = Left(s, Len(s) - 1)
  Else
    removeDelimiter = s
  End If
End Function

什么东西没有按预期工作?使用
Navigate2
调用,您应该有一个无限循环(因为您从未将文件读到底),但除此之外,它应该可以自动工作。好的,我已经添加了更新的代码。现在错误显示为
“未指定错误:代码80004005
该行的内容是什么?