VB 読み込んだファイルに対して、追記書き込みするには？

Question

VB.netでのファイル読み書きについての質問です。

csvファイルを読みこみ、そのファイルに対して、追記書き込みをしようと思っていますが、書き込みファイルを操作する段階で、読み込みファイルが使用中のためというエラーがでます。

ソースファイルは・・・
readstring = My.Computer.FileSystem.ReadAllText("C:\test.csv", enc)
でreadstringを読み出し

readstring = readstring & "追記"　
とか文字を付けたし

My.Computer.FileSystem.WriteAllText("C:\test.csv", readstring, False, enc)
で書き出そうと思うのですが、

別のプロセスで使用されているため、プロセスはファイル 'C:\test.csv' にアクセスできません

というエラーがでます。

my.computer.filesystemはclose処理がいらないとWEBで調べたのですが
なにか手順を間違えているのでしょうか。

簡単なことだと思うのですが、つまずいています。
アドバイスをお願いします。

Answer 1

FileSystem.ReadAllTextの時点で、すでに該当ファイルが他のシステムによって
ロックされているのではありませんか？

Answer 2

Dim enc = System.Text.Encoding.GetEncoding("SHIFT-JIS")
Dim readstring = My.Computer.FileSystem.ReadAllText("C:\test.csv", enc)

readstring = readstring & "追記"

My.Computer.FileSystem.WriteAllText("C:\test.csv", readstring, False, enc)

上記ソースで確認しましたが、現象が確認できませんでした。
現象が確認できるソースを提示していただけないでしょうか。
もしくは確認するためだったりで別のもの（例えばエクセル等）で開いていたりしませんか？

また、ファイルに追記するだけであれば

My.Computer.FileSystem.WriteAllText("C:\test.csv", "追記", True, enc)

で済みます。

Comments

[mori_C]

記載していただいたプログラムを貼り付け、実行したら問題なく動作しました。
しかし、自分のものに組み合わせて実行したら、エラーがでて動作しませんでした。

ほかの部分に問題があるということで、調べていくと
ファイルの行数をカウントするプログラムが挿入してあり、
そこでは、close処理が必要だったようです。

一文挿入するとうまく動作しました。ありがとうございました。

Public Function GetLinesOfTextFile(ByVal FileName As String) As Integer

Dim StReader As New System.IO.StreamReader(FileName)
Dim LineCount As Integer '行数カウント用

While (StReader.Peek() >= 0)
StReader.ReadLine()
LineCount += 1
End While

StReader.Close()　　←ここの一文

Return LineCount

End Function

[YAmaGNZ]

Using StReader As New System.IO.StreamReader(FileName)
Dim LineCount As Integer '行数カウント用

While (StReader.Peek() >= 0)
StReader.ReadLine()
LineCount += 1
End While
End Using
といった感じでUsingステートメントを使用することをお勧めします。
そうすれば、Usingステートメントの有効範囲を抜けたらClose等の後処理が行われますので、今回のようなClose忘れがなくなるかと思います。

[mori_C]

ありがとうございます。いろいろ勉強になりました。
using 使うようにしたいと思います。