在VBScript中将InputBox中的值添加到objFSO.OpenTextFile 我的问题
我一直在这里得到一个错误,这个程序的目标是读取我制作的文件类型(.ptaf纯文本存档格式),但它一直返回这个错误: 变量未定义:“输入” 代码 问题领域 问题区域结束 试试下面在VBScript中将InputBox中的值添加到objFSO.OpenTextFile 我的问题,vbscript,Vbscript,我一直在这里得到一个错误,这个程序的目标是读取我制作的文件类型(.ptaf纯文本存档格式),但它一直返回这个错误: 变量未定义:“输入” 代码 问题领域 问题区域结束 试试下面 Set objReadFile = objFSO.OpenTextFile("C:\MyArchives\"& Input, 1, False) 您需要Dim变量Input(并遵循@AshReva的建议-Input不是对象) 'Input Input = InputBox("Please enter the p
Set objReadFile = objFSO.OpenTextFile("C:\MyArchives\"& Input, 1, False)
您需要
Dim
变量Input
(并遵循@AshReva的建议-Input
不是对象)
'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
--------------
Set objReadFile = objFSO.OpenTextFile("C:\MyArchives\"& Input, 1, False)