20090416_001

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

「20090416_001」(2009/04/16 (木) 16:04:03) の最新版変更点

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

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

<p><br />
===<br /><br />
Set objFso01 = CreateObject("Scripting.FileSystemObject")<br />
Set objFile01 = objFso.OpenTextFile("C:\Documents and Settings\parao\My
Documents\w\a.txt", 1, False)</p>
<p>If Err.Number &gt; 0 Then<br />
    WScript.Echo "Open Error"<br />
Else<br />
    Do Until objFile01.AtEndOfStream<br />
        WScript.Echo objFile01.ReadLine &amp; vbCrLf<br />
    Loop<br />
End If</p>
<p>objFile01.Close<br />
Set objFile01 = Nothing<br />
Set objFso01 = Nothing</p>
<p>Set objFso02 = CreateObject("Scripting.FileSystemObject")<br />
Set objFile02 = objFso.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 />
    objFile02.WriteLine &amp; "追加する文字列です。"<br />
End If</p>
<p>objFile02.Close<br />
Set objFile02 = Nothing<br />
Set objFso02 = Nothing<br /><br /><br />
===</p>

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