安達利機車行

透過StreamWriter類別將指定的資料寫入文字檔
1.透過File.Exists來判斷是檔案是否存在(此用途適於於log檔的建立)
2.如檔案存在，則開啟檔案，新資料接著原先資料的後面。
3.請利用Flush()這method立即將目前還buffer的資料流寫入該檔案，
   這會避免lock住該文字檔, 尤其是多執行緒程式多人同時存取同一檔案時，
   如果沒有明確執行則不會立即寫入並關檔，造成文字檔被lock的現象。

Public Function SaveToFile(ByVal file_contents As String, ByVal file_path As String) As Boolean
        Dim sw As StreamWriter
        If File.Exists(file_path) = False Then
                sw = File.CreateText(file_path)
        Else
                sw = File.AppendText(file_path)
        End If
        sw.WriteLine(file_contents)
        sw.Flush()
        sw.Close()
End Function