[VBScript]テキストファイルの書き込み

'
' テキストファイルの書き込み
'

Option Explicit


Dim oFSO
Dim oTextStream

Dim sPath

Dim aLines()
Dim sLine

ReDim Preserve aLines(0): aLines(0) = "AAA"
ReDim Preserve aLInes(1): aLines(1) = "BBB"
ReDim Preserve aLInes(2): aLines(2) = "CCC"

sPath = ".\sample.txt"

Set oFSO = WScript.CreateObject("Scripting.FileSystemObject")
Set oTextStream = oFSO.CreateTextFile(sPath)

For Each sLine In aLines
oTextStream.WriteLine(sLine)
Next

oTextStream.Close: Set oTextStream = Nothing
Set oFSO = Nothing