===txt_File02 = "file002.txt"txt_File03 = "file003.txt"
Set objFso02 = CreateObject("Scripting.FileSystemObject")Set objFile02 = objFso02.OpenTextFile("C:\Documents and Settings\parao\My Documents\w\" & txt_File02, 1, False)
Set objFso03 = CreateObject("Scripting.FileSystemObject")Set objFile03 = objFso03.OpenTextFile("C:\Documents and Settings\parao\My Documents\w\" & txt_File03, 8, True)
'If Err.Number > 0 Then' WScript.Echo "Open Error"'Else Do Until objFile02.AtEndOfStream'If Err.Number > 0 Then' WScript.Echo "Open Error"'Else objFile03.WriteLine "aaa " & objFile02.ReadLine'End If
Loop'End If
objFile02.CloseSet objFile02 = NothingSet objFso02 = Nothing
objFile03.CloseSet objFile03 = NothingSet objFso03 = Nothing
===
このサイトはreCAPTCHAによって保護されており、Googleの プライバシーポリシー と 利用規約 が適用されます。
1文字以上入力してください
本文は少なくとも1文字以上必要です。
1文字以上入力してください。
下から選んでください: