* http://vbs.crap.jp/content/io/io1.shtml * 十分な説明がある。 Set objFso = WScript. CreateObject ( "Scripting.FileSystemObject" ) 'C:\のtest.txtを読込 Set objFile = objFso. OpenTextFile ( "C:\test.txt" ) 'ファイルの内容を全て変数に格納 strRet = objFile.ReadAll '結果表示 Wscript.Echo strRet 'ファイルをクローズ objFile.Close * http://win-script.net/vbs-filesystemobject/readall/ * simple. 上の例が詳しいのでスキップしていい * http://officetanaka.net/excel/vba/filesystemobject/textstream07.htm * withを利用して例がある Set FSO = CreateObject ( "Scripting.FileSystemObject" ) ''C:\Work\Sample.txtの全ての文字を読み込んで表示します With FSO. GetFile ( "C:\Work\Sample.txt" ).OpenAsTextStream buf = .ReadAll MsgBox buf .Close End With