20090416_003


※上記の広告は60日以上更新のないWIKIに表示されています。更新することで広告が下部へ移動します。


===

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.AtEndOfStream
If Err.Number > 0 Then
    WScript.Echo "Open Error"
Else
    objFile02.WriteLine "aaa " & objFile01.ReadLine
End If

    Loop
End If

objFile01.Close
Set objFile01 = Nothing
Set objFso01 = Nothing

objFile02.Close
Set objFile02 = Nothing
Set objFso02 = Nothing



===

ツールボックス

下から選んでください:

新しいページを作成する
ヘルプ / FAQ もご覧ください。