ファイル I/O

VBScript

第二引数に指定されたファイルから読んで、第三引数に指定されたファイルに書く

lesson004.vbs



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

Dim objTextIn  : Set objTextIn  = objFs.OpenTextFile(WScript.Arguments(1), 1      )

Dim objTextOut : Set objTextOut = objFs.OpenTextFile(WScript.Arguments(2), 2, True)
Do Until objTextIn.AtEndOfStream

    objTextOut.WriteLine objTextIn.ReadLine

Loop
objTextIn.Close

objTextOut.Close
Set objTextIn  = Nothing

Set objTextOut = Nothing

Set objFs      = Nothing
実行結果


C:\>cscript c:\study\vbscript\chapter003\lesson004.vbs dummy c:\study\vbscript\c

hapter001\lesson002.vbs c:\study\vbscript\chapter001\test.txt //nologo
C:\>type c:\study\vbscript\chapter001\test.txt

Dim var1: var1 = "Hello"

Dim var2: var2 = "World"

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