ファイル書き込みをするには？ (ID:122573)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 引数iomodeを指定してないからでは？ 引数iomodeを省略すると、読み取り専用になるのかも。 また、書き込み専用で開いた場合でも、上書きとなり ２行目だけ書き換えることは出来ません。 なので、すべて読み込んだ後、変更を行い、すべてを 書き込むようにします。 参考 http://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/script56/html/jsmthopentextfile.asp Dim obj_FileSys As New FileSystemObject Dim obj_TextStm As TextStream Dim i As Long Dim strData() As Long Set obj_FileSys = CreateObject("Scripting.FileSystemObject") Set obj_TextStm = obj_FileSys.OpenTextFile("C:\test.txt", ForReading) i = 0 Do Until obj_TextStm.AtEndOfStream ReDim Preserve strData(i) strData(i) = obj_TextStm.ReadLine i = i + 1 Loop 'オブジェクトのクローズ obj_TextStm.Close 'glb_lLinePosは、読み込み時に取得した該当行数 strData(glb_lLinePos) = "XXX=90000" Set obj_TextStm = obj_FileSys.OpenTextFile("C:\test.txt", ForWriting) For i = 0 To UBound(strData) obj_TextStm.WriteLine strDate(i) Next i 'オブジェクトのクローズ・解放処理 obj_TextStm.Close Set obj_TextStm = Nothing