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

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

Option Explicit

Const cForReading = 1

Dim oFSO
Dim oTextStream

Dim sPath

sPath = ".\sample.txt"

Set oFSO = WScript.CreateObject("Scripting.FileSystemObject")
Set oTextStream = oFSO.OpenTextFile(sPath, cForReading)

Do While oTextStream.AtEndOfStream <> True

WScript.Echo oTextStream.ReadLine

Loop

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