VBScript OpenTextFile 无效的过程调用或参数

Question

所以我已经阅读了这个问题的各种答案，并尽我所能实现了它们。即使在定义常量并检查以确保我的目标文件存在之后，我仍然收到此错误。它肯定与传递 OpenTextFile 的可选参数有关 - 如果我仅传递文件路径和名称，代码将运行。但是，因为目标文件是 Unicode 格式的，所以这对我的用途不起作用。更重要的是，在花了几个多小时试图破译这个问题之后，我想了解这里发生了什么。我非常感谢提供的任何帮助。谢谢。

作为参考，我收到的错误是：

GetNewVersion.vbs

中第 17 行第 3 列的未处理异常

0x800a0005 - Microsoft VBScript 运行时间错误：过程调用或参数无效

    Option Explicit

    const ForReading = 1
    const TristateTrue = 1

    Dim strComputer, objWMIService, fso, ts, objShell, sTempDir, sPID, sFilePath, sFileName, colProcessList, objProcess,listInfo, lineInfo

    'Create File System Object
    Set fso = CreateObject("Scripting.FileSystemObject")

    'Locate Temp Directory
    sTempDir = fso.GetSpecialFolder(2)
    sTempDir = sTempDir & "\DBUpdateInfo.txt"

    'Ensure DBUpdateInfo.txt exists
    If fso.FileExists(sTempDir) Then
        Set ts = fso.OpenTextFile(sTempDir,ForReading,False,TristateTrue)
    ...

Answer 1

TristateTrue 的正确值为 -1。

VBScript OpenTextFile 无效的过程调用或参数

VBScript OpenTextFile Invalid Proedure call or argument

vbscript