20090416_003

「20090416_003」の編集履歴（バックアップ）一覧はこちら

「20090416_003」(2009/04/16 (木) 16:10:18) の最新版変更点

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

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

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