vbscrip error set on OpenTextFile（）

Question

該代碼讀取放置腳本的文件夾中的所有文件（.txt），並且echo是每個txt文件的第6行。下面的代碼Set objTextFile = objFSO.OpenTextFile(objFSO.name, 1)：

我這裏得到一個錯誤

Set objFSO = CreateObject("Scripting.FileSystemObject") 

Wscript.Echo Wscript.ScriptFullName 
Wscript.Echo left(Wscript.ScriptFullName, InStrRev(Wscript.ScriptFullName, "\")) 

sFolder = left(Wscript.ScriptFullName, InStrRev(Wscript.ScriptFullName, "\")) 

For Each objFSO In objFSO.GetFolder(sFolder).Files 

    Wscript.Echo objFSO.name 

    if objFSO.name <> Wscript.ScriptName then 

    Set objTextFile = objFSO.OpenTextFile(objFSO.name, 1) 
     For i = 1 to 5 
      objTextFile555.ReadLine 
     Next 
    end if 

strLine = objTextFile555.ReadLine 
Wscript.Echo strLine 
objTextFile.Close 

Next 

Answer 1

我發現這個問題 - >Set FileRead = objFSO.OpenTextFile(objTextFile.name, 1)

全碼：

Set objFSO = CreateObject("Scripting.FileSystemObject") 

sFolder = left(Wscript.ScriptFullName, InStrRev(Wscript.ScriptFullName, "\")) 

For Each objTextFile in objFSO.GetFolder(sFolder).Files 

    msgbox (objTextFile.name) 

    if objTextFile.name <> Wscript.ScriptName then 

     Set FileRead = objFSO.OpenTextFile(objTextFile.name, 1) 
     For i = 1 to 5 
      FileRead.ReadLine 
     Next 
      Wscript.Echo FileRead.ReadLine 
     End If 
Next