テキストファイルの高速書き込み

初心者 2006-12-04 01:02:54 No: 134429

現在下記の様なコードでテキストファイルに追加書き込みを行うプログラムを作成しています。
ファイルサイズが小さい時は、短時間で追加書き込みが出来るのですが、
ファイルサイズが大きくなると、徐々に書き込み速度が落ちて行きます。
ファイルサイズが大きくなっても書き込み速度が落ちない方法は無いでしょうか？

    Private Sub TEXTWRITE()
     Dim path As String = "c:\temp\MyTest.txt"
     Dim fs1 As FileStream
     fs1 = New FileStream(path, FileMode.Append, FileAccess.Write,FileShare.Read)
     Dim sw As New StreamWriter(fs1)
     sw.WriteLine("書き込みたい文字列.")
     sw.Close()

End Sub

我龍院 2006-12-04 17:36:25 No: 134430

書き込む時間より、毎回インスタンス作っているので、
それに時間がかかるのでしょう。