ファイル操作 - 310ke @ ウィキ

ディレクトリのファイル一覧を取得

Dim fso, dir, file
Set fso = CreateObject("Scripting.FileSystemObject")
Set dir = fso.getFolder(".")
For Each file In dir.Files
    WScript.Echo file.Name
Next

ファイルを読み込む

Dim fso, reader
Set fso = CreateObject("Scripting.FileSystemObject")
Set reader = fso.OpenTextFile("test.vbs", 1, False)
Do Until reader.AtEndOfStream
    WScript.Echo reader.ReadLine
Loop
reader.Close()

ファイルを書き込む

Dim fso, writer, i
Set fso = CreateObject("Scripting.FileSystemObject")
Set writer = fso.OpenTextFile("write.txt", 2, True)
For i = 1 To 10
    writer.WriteLine i
Next
writer.Close()