錯誤說當寫入文件時文件已經打開

Question

我有一個表格，我保存到文本文件中。

基於同樣的形式我有一個按鈕，允許您查看您從文本文件

之前什麼保存時，我打它讀取數據網格的文本文件，並顯示該按鈕。

這段代碼是什麼顯示到DataGrid

Dim reader As StreamReader 
    reader = New StreamReader("C:\Users\John\Desktop\tickets.txt") 
    Dim a As String 
    Dim results() As String 
    Do 
     a = reader.ReadLine 
     results = a.Split(vbTab) 
     dgv.Rows.Add(results(0), results(1), results(2), results(3), results(4), results(5)) 
     ' Code here 
     ' 
    Loop Until a Is Nothing 

    reader.Close() 
    reader.Dispose() 

這段代碼保存到文件

Dim file As StreamWriter 
    file = New StreamWriter("C:\Users\John\Desktop\tickets.txt", True) 
    file.WriteLine(txtname.Text & vbTab & dtdate.Text & vbTab & txttime.Text & vbTab & txtwho.Text & vbTab & txtproblem.Text & vbTab & txtresolution.Text) 
    file.Close() 

當我讀到記錄第一再試圖挽救他們，我不斷收到錯誤的進程無法訪問該文件，因爲它正在被另一個進程使用。

我都收了讀者和作家，這是爲什麼happeneing

Answer 1

更好的代碼，我不知道，你確定你的循環即將結束？

寫：

Dim path As String = "C:\Users\John\Desktop\tickets.txt" 
If File.Exists(path) Then 
Using sw As New StreamWriter(path, True) 
    'code 
End Using' closes and disposes for you 
End If 

閱讀：

Dim path As String = "C:\Users\John\Desktop\tickets.txt" 
If File.Exists(path) Then 
Dim results As New List(Of String) 
Using sr As New StreamReader(path) 
    While Not sr.EndOfStream() 
    results.Add(sr.Readline()) 
    'better than do loop 
    End While 
End Using' closes and disposes for you 
End If 

For Each line In results 
    'add to DGV 
Next