vbscript - VBScript で InputBox から objFSO.OpenTextFile に値を追加する

Question

私の質問

ここでエラーが発生し続けます。このプログラムの目的は、作成したファイル タイプ (.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
         --------------

Answer 1

以下で試してみてください

Set objReadFile = objFSO.OpenTextFile("C:\MyArchives\"& Input, 1, False)