20090416_001


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


===

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
    objFile02.WriteLine "aaa"
End If

objFile02.Close
Set objFile02 = Nothing
Set objFso02 = Nothing

Set objFso01 = CreateObject("Scripting.FileSystemObject")
Set objFile01 = objFso01.OpenTextFile("C:\Documents and Settings\parao\My Documents\w\a.txt", 1, False)

If Err.Number > 0 Then
    WScript.Echo "Open Error"
Else
    Do Until objFile01.AtEndOfStream
        WScript.Echo objFile01.ReadLine & vbCrLf
    Loop
End If

objFile01.Close
Set objFile01 = Nothing
Set objFso01 = Nothing

 



===

ツールボックス

下から選んでください:

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