20090416_006_001


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


===

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.Close
Set objFile02 = Nothing
Set objFso02 = Nothing

objFile03.Close
Set objFile03 = Nothing
Set objFso03 = Nothing



===

ツールボックス

下から選んでください:

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