20090416_006_001

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

「20090416_006_001」(2009/04/16 (木) 17:55:06) の最新版変更点

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

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

<p><br />
===<br /><br /><br />
===</p>

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