0

我正在使用一个名为 Move It Central 的软件。它允许上传用于各种文件的 VBScript。该行MICacheFilename()返回C:\TEMP\path\file.tmp但是此文件是一个简单的 txt 文件。

我正在尝试使用该方法计算此文本文件中有多少行，OpenTextFile但出现错误Object doesn't support this property or method。我似乎无法弄清楚为什么我会得到这个。脚本如下。我相信很多问题都是用户错误，因为我对 VBS 非常陌生

Sub main()
    Dim objFSO, textInput, strTextFile, actualRows, testRows, mFunction, strTemp
    CONST ForReading = 1

    MISetTaskParam "cachedFile", mFile
    textInput = "the next line is the cachedFile"
    MILogMsg textInput
    MILogMsg mFile


    Set objFSO = CreateObject("Scripting.FileSystemObject")
    strTextFile = MICacheFilename()
    textInput = objFSO.OpenTextFile(strTextFile,ForReading)
    testRows = MIGetTaskParam("testRows")

    Do While textInput.AtEndOfStream <> True
        strTemp = textInput.SkipLine
    Loop
    IF textInput.Line-1 >= testRows THEN
        MILogMsg "true"
    ELSE
        MILogMsg "false"
    END IF
end sub
main
4

1 回答 1

2

你错过了SET关键字

set textInput = objFSO.OpenTextFile(strTextFile,ForReading)

参考：http: //msdn.microsoft.com/en-us/library/office/gg278834.aspx

于 2012-12-28T06:53:50.567 回答