Question

此代码读取放置脚本的文件夹中的所有文件（.txt），并回显每个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

我发现了问题 - ＆gt; 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

设置OpenTextFile（）上的vbscrip错误

1 个答案: