打开文本时键入Mismatch错误

Question

我在Test文件夹中有5个日志（.log）文件。

对于第一个文件，循环工作正常但是对于第二个文件我正在

  

＆＃34>中的类型不匹配错误设置oFile = oFSO.OpenTextFile（vPath，1）＆＃34;线。

我不知道什么是问题？

Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFol = oFSO.GetFolder("C:\Test\")
For Each objFile In oFol.Files
  vPath = objFile.Path
  Set oFile = oFSO.OpenTextFile (vPath,1)
  msgbox oFile.Readline
  oFile.Close
  Set oFile = Nothing
Next