2009年06月10日


VBScript : テキストファイルの行入出力

' **********************************************************
' テキストファイルの1行単位での入出力
' **********************************************************

Set Fso = CreateObject( "Scripting.FileSystemObject" )

strPath1 = "enum_desktop.vbs"
strPath2 = "enum_desktop.txt"

Set objHandle1 = Fso.OpenTextFile( strPath1, 1 )
Set objHandle2 = Fso.OpenTextFile( strPath2, 2, True )

Do While not objHandle1.AtEndOfStream
	Buffer = objHandle1.ReadLine
	objHandle2.WriteLine Buffer
Loop

Call objHandle2.Close()
Call objHandle1.Close()

posted by at 2009-06-10 21:29 | サンプル | このブログの読者になる | 更新情報をチェックする