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