.txt文本处理问题：程式无法写入

Question

情况如下所述：
已有的一款程式，每8秒自动生成.TXT文档中新行。

    现开发一款程式，监视TXT文档中是否有新行，若有新行，用Socket将其发出。

    遇到的问题为：开发的监视程式一打开，原有的写入程式就无法写入新行

    困扰多日，求高人指点迷津！！

    不胜感激！！！


    读取的代码如下：
    #Region "获取从第某行到第某项的数据list，并通过socket发送出来"
Private Sub GetDataList(ByVal FilePath As String, ByVal StartLine As Integer, ByVal EndLine As Integer)
    Dim m_fs As New FileStream(FilePath, FileMode.Open, FileAccess.Read, FileShare.ReadWrite)
    Dim m_sr As New StreamReader(m_fs, Encoding.ASCII)
    Dim i As Integer = 0
    Dim m_Line As String = Nothing
    Do
        m_Line = m_sr.ReadLine & vbCr
        If m_Line <> Nothing Then
            If i >= StartLine And i < EndLine Then
                soc_Client.Send(Encoding.ASCII.GetBytes(m_Line))
            End If
            i = i + 1
        End If
    Loop Until i > EndLine
    m_sr.Close()
    m_fs.Close()
End Sub

#End Region

Answer 1

把你的代码贴出来，是怎么读取的流。你必须要关闭流之后才能写入