20090416_001

===

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
    objFile02.WriteLine "aaa"
End If

objFile02.Close
Set objFile02 = Nothing
Set objFso02 = Nothing

Set objFso01 = CreateObject("Scripting.FileSystemObject")
Set objFile01 = objFso01.OpenTextFile("C:\Documents and Settings\parao\My Documents\w\a.txt", 1, False)

If Err.Number > 0 Then
    WScript.Echo "Open Error"
Else
    Do Until objFile01.AtEndOfStream
        WScript.Echo objFile01.ReadLine & vbCrLf
    Loop
End If

objFile01.Close
Set objFile01 = Nothing
Set objFso01 = Nothing

 

===