===Set objFso01 = CreateObject("Scripting.FileSystemObject")Set objFile01 = objFso01.OpenTextFile("C:\Documents and Settings\parao\My Documents\w\a.txt", 1, False)
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 Do Until objFile01.AtEndOfStreamIf Err.Number > 0 Then WScript.Echo "Open Error"Else objFile02.WriteLine "aaa " & objFile01.ReadLineEnd If
LoopEnd If
objFile01.CloseSet objFile01 = NothingSet objFso01 = Nothing
objFile02.CloseSet objFile02 = NothingSet objFso02 = Nothing
===
このサイトはreCAPTCHAによって保護されており、Googleの プライバシーポリシー と 利用規約 が適用されます。
1文字以上入力してください
本文は少なくとも1文字以上必要です。
1文字以上入力してください。
下から選んでください: