===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.CloseSet objFile02 = NothingSet 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 LoopEnd If
objFile01.CloseSet objFile01 = NothingSet objFso01 = Nothing
===
このサイトはreCAPTCHAによって保護されており、Googleの プライバシーポリシー と 利用規約 が適用されます。
1文字以上入力してください
本文は少なくとも1文字以上必要です。
1文字以上入力してください。
下から選んでください: