ファイル操作


※上記の広告は60日以上更新のないWIKIに表示されています。更新することで広告が下部へ移動します。

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

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()