1

我的问题

我在这里不断收到错误，该程序的目标是读取我制作的文件类型（.ptaf 纯文本存档格式），但它一直返回此错误：

变量未定义：“输入”

编码

 Option Explicit

Const conForReading = 1

'Declare variables
Dim objFSO, objReadFile, contents

问题领域

'Input
Input = InputBox("Please enter the path of the file you want to open:", _
    "Open Plain Text Archive File File")

'Set Objects
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objReadFile = objFSO.OpenTextFile("C:\MyArchives\"& Input.Value , 1, False)

问题区域结束

'Read file contents
contents = objReadFile.ReadAll

'Close file
objReadFile.close

'Display results
wscript.echo contents

'Cleanup objects
Set objFSO = Nothing
Set objReadFile = Nothing

     Thanks,
     -------
         Mr.Minecrafter
         --------------
4

2 回答 2

1

试试下面

Set objReadFile = objFSO.OpenTextFile("C:\MyArchives\"& Input, 1, False)
于 2013-05-12T20:52:51.773 回答
1

您需要Dim变量Input（并遵循@AshReva 的建议 -Input不是对象）。

于 2013-05-12T21:03:18.830 回答