VBSファイルに、.txtファイルを開くコードを記述したい

Question

VBSで、.txtファイルを開く（開くのみ）のコードをご教示いただけますでしょうか。
コードが載っているサイトを幾つか見て試してみましたが、どうも上手くVBSが動かず、またコードの説明もあまり無いものが多かったため、お聞きできますと幸いです。

Comments

[YT0014]

VBS(VBScript)とVBAは異なる言語です。
タグ「VB」「VBA」を外しタグ「VBScript」を設定されるようお願いします。

Answer 1

もしかして、「VBSで、.txtファイルを開く（開くのみ）」とは、メモ帳を起動して、メモ帳で.txtファイルを開くということでしょうか。
その場合は、以下のようにしてください。

arg1 = "D:\goo\vbs\sample.txt"

Dim objWshShell
Set objWshShell = WScript.CreateObject("WScript.Shell")

'メモ帳を起動。
objWshShell.Run "notepad.exe " & arg1

Answer 2

sample.txtを開くサンプルです。

arg1 = "sample.txt"

Set objFileSystem = CreateObject("Scripting.FileSystemObject")
Set objStream = objFileSystem.OpenTextFile(arg1, 1)
mytext = objStream.ReadAll
msgbox mytext

実行結果

sample.txtの内容
これはサンプルです。
This is a pen.

Comments

[cherishlieben]

ご回答ありがとうございます。
.txtが保存してあるファイルパスを指定するコードはどのように記載すればよろしいでしょうか？

[tatsu99]

.txtが C:\folder 内にあるとすると
arg1 = "C:\folder\sample.txt"
のようにすれば良いです。

[cherishlieben]

ご回答ありがとうございます。
トライしてみたところ、上のコードで何故か開かなかった（VBSファイルをダブルクリックしても何も起こらない）状態で、原因が不明なのですが、
何か想定されるよくある原因などがありましたら、ご教示いただくことは出来ますでしょうか。

[tatsu99]

ファイルをオープンしただけなので、見た目はなにも起こりません。
例として、
オープンした後で、ファイルを読み込み、その内容をメッセージボックスに表示する処理を追記しました。
通常は、このように何かを行うためにファイルをオープンするのであり、オープンしただけではなにも起こりません。オープンした後に何かの処理を記述するのが普通です。

[cherishlieben]

承知いたしました。
ご回答いただきありがとうございました。