ファイル I/O

VBScript

第一引数に指定されたファイルから読んで、標準出力に書く

lesson003.vbs



Dim objFs   : Set objFs   = CreateObject("Scripting.FileSystemObject")

Dim objText : Set objText = objFs.OpenTextFile(WScript.Arguments(0))
Do Until objText.AtEndOfStream

    WScript.StdOut.WriteLine objText.ReadLine

Loop
objText.Close
Set objText  = Nothing

Set objFs    = Nothing
実行結果


C:\>cscript c:\study\vbscript\chapter003\lesson003.vbs c:\study\vbscript\chapter

001\lesson002.vbs //nologo

Dim var1: var1 = "Hello"

Dim var2: var2 = "World"

WScript.Echo var1 + ", " + var2 + "!"