StreamWriter文本文件被創建，但不包含行

Question

我想寫一些文本行到Windows窗體應用程序中的一個小日誌文件，我看不出爲什麼沒有寫入行。該文件得到創建好，並且以下所有執行沒有錯誤，但是當我用記事本打開新文件時，沒有行。重點摘錄如下：

Dim sFileName = App_Path() & "\logs\" & sJobName & ".log" 
    Try 
     Using fs As FileStream = New FileStream(sFileName, FileMode.Append, FileAccess.Write) 
      Using w As StreamWriter = New StreamWriter(fs) 
       Dim s As String = "Beginning execution (JobName=" & sJobName & ")" 
       Log(s, w) 
       s = "Connection in effect: " & BuildConnectString() 
       Log(s, w) 
       Dim loader As New Importer 
       loader.LoadData(Me.txtFN.Text, w) 
      End Using 
     End Using 
    Catch ex As Exception 
     MsgBox(ex.Message) 
    End Try 

Public Sub Log(logMessage As String, w As StreamWriter) 
    w.WriteLine("{0} {1}: {2}", DateTime.Now.ToLongTimeString(), _ 
     DateTime.Now.ToShortDateString(), logMessage) 
End Sub 

，然後我試圖從已通過的StreamWriter作爲參數不同的類寫這篇日誌：

Public Function LoadData(ByRef filename As String, _ 
         ByRef w As StreamWriter) As String 
    Dim s As String = "Test logging from loader class" 
    Mainform.Log(s, w) 

在這個小測試，我期待看到3條線，但我什麼都沒有。我看不到我做錯了什麼。

Answer 1

它爲我，但如果代碼不爲你工作，你可以使用這樣的代碼......

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
    Dim sFileName = App_Path() & "\logs\" & sJobName & ".log" 
    Try 
     Dim s As String = "Beginning execution (JobName=" & sJobName & ")" 
     Log(s, sFileName) 
     s = "Connection in effect: " & BuildConnectString() 
     Log(s, sFileName) 
     Dim loader As New Importer 
     loader.LoadData(Me.txtFN.Text, sFileName) 
    Catch ex As Exception 
     MsgBox(ex.Message) 
    End Try 
End Sub 

Public Sub Log(logMessage As String, StrPath As String) 
    IO.File.AppendAllText(StrPath, String.Format("{0} {1}: {2}", DateTime.Now.ToLongTimeString(), DateTime.Now.ToShortDateString(), logMessage) + vbCrLf) 
End Sub 

Public Function LoadData(ByRef filename As String, _ 
        StrPath As String) As String 
    Dim s As String = "Test logging from loader class" 
    Log(s, StrPath) 
End Function