Vbscript 将OpenTextFile与.tmp文件一起使用

我正在使用一个名为Move It Central的软件。它允许上传用于各种文件的VBScript。行

MICacheFilename（）

返回

C:\TEMP\path\file.tmp

但是该文件是一个简单的txt文件

我正在尝试使用

OpenTextFile

方法计算此文本文件中的行数，但是我得到的错误是

对象不支持此属性或方法

。我似乎不明白为什么我会得到这个。脚本如下。我相信很多问题都是用户错误，因为我对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

Sub-main（）
Dim objFSO、文本输入、strTextFile、实际行、测试行、mFunction、strTemp
常数ForReading=1
MISetTaskParam“cachedFile”，mFile
text输入=“下一行是缓存文件”
MILogMsg文本输入
米洛格姆文件
设置objFSO=CreateObject（“Scripting.FileSystemObject”）
strTextFile=MICacheFilename（）
textInput=objFSO.OpenTextFile（strTextFile，ForReading）
testRows=MIGetTaskParam（“testRows”）
在textInput.AtEndOfStream为真时执行
strTemp=textInput.SkipLine
环
如果textInput.Line-1>=testRows，则
“真的”
其他的
米洛格姆“假”
如果结束
端接头
主要的

您漏掉了

设置

关键字

set textInput=objFSO.OpenTextFile（strTextFile，ForReading）

---

参考资料：

用strTextFile=“C:\Temp\path\file.tmp”替换strTextFile时会发生什么？它有用吗？我想知道MICacheFilename是否没有返回字符串。如果看不到该函数，可能很难判断。我会尝试这样做，但我相信只有在任务（将其移至中心）执行时，该文件才位于临时文件夹中。文件名等等都是随机生成的。你知道我该如何解决这个问题吗？执行这个函数（但不要试图将它设置为字符串）。因此，首先，在脚本中，只需调用MICacheFileName（）。我怀疑该函数创建了文件，并且没有像您当前尝试的那样返回字符串。如果它总是在temp文件夹中，那么您可以使用FileExists在该文件夹中搜索.tmp文件（在函数运行后），然后对其进行处理。