回答編集履歴
1
処理を追加しました。
test
CHANGED
|
@@ -4,5 +4,14 @@
|
|
|
4
4
|
|
|
5
5
|
Set objFileSystem = CreateObject("Scripting.FileSystemObject")
|
|
6
6
|
Set objStream = objFileSystem.OpenTextFile(arg1, 1)
|
|
7
|
+
mytext = objStream.ReadAll
|
|
8
|
+
msgbox mytext
|
|
7
9
|
|
|
8
10
|
```
|
|
11
|
+
実行結果
|
|
12
|
+
|
|
13
|
+
|
|
14
|
+
sample.txtの内容
|
|
15
|
+
これはサンプルです。
|
|
16
|
+
This is a pen.
|
|
17
|
+
|