===
Set objFso01 = CreateObject("Scripting.FileSystemObject")
Set objFile01 = objFso01.OpenTextFile("C:\Documents and Settings\parao\My
Documents\w\a.txt", 1, False)
Set objFso02 = CreateObject("Scripting.FileSystemObject")
Set objFile02 = objFso02.OpenTextFile("C:\Documents and Settings\parao\My
Documents\w\b.txt", 8, True)
If Err.Number > 0 Then
WScript.Echo "Open Error"
Else
Do Until objFile01.AtEndOfStream
If Err.Number > 0 Then
WScript.Echo "Open Error"
Else
objFile02.WriteLine "aaa " & objFile01.ReadLine
End If
Loop
End If
objFile01.Close
Set objFile01 = Nothing
Set objFso01 = Nothing
objFile02.Close
Set objFile02 = Nothing
Set objFso02 = Nothing
===