「ファイル操作」の編集履歴（バックアップ）一覧はこちら

「ファイル操作」(2010/04/20 (火) 01:19:44) の最新版変更点

追加された行は緑色になります。

削除された行は赤色になります。

***ディレクトリのファイル一覧を取得
 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()