Fungsi menulis teks ke dalam file di Visual Basic

Fungsi ini digunakan untuk menuliskan sesuatu ke dalam file dokumen, dan file tersebut nantinya dapat dibuka menggunakan notepad. Sering saya jumpai situasi dimana program aplikasi yang saya buat ternyata error. Tentunya saya ingin tahu dimana letak kesalahan program tersebut, sehingga pada saat error tersebut terjadi, saya menuliskan pesan kesalahan pada file, sehingga saya bisa mengecek kesalahan apa yang telah dibuat oleh program tersebut.

Jika file tujuan tidak ada, maka file akan dibuat secara otomatis, dan jika file tujuan sudah ada, maka teks akan ditambahkan ke dalam file tersebut. Lokasi penyimpanannya juga bisa diubah sesuka hati, tetapi dalam contoh ini saya tidak mengubah lokasi penyimpanannya.

Module1.vb
Friend Shared Sub ErrorLog(ByVal message As String)
	Dim sw As StreamWriter = Nothing

	Try
		Dim sLogFormat As String = DateTime.Now.ToShortDateString() & " " & DateTime.Now.ToLongTimeString() & " ==> "
		Const sPathName As String = "ErrorLog_"
		Dim sErrorTime As String = Now.ToString("dd-MM-yyyy")

		sw = New StreamWriter(sPathName + sErrorTime + ".txt", True)
		sw.WriteLine(sLogFormat & message)
		sw.Flush()
	Catch ex As Exception

	Finally
		If Not sw Is Nothing Then
			sw.Dispose()
			'sw.Close()
		End If
	End Try
End Sub

Contoh pemanggilan fungsi adalah sebagai berikut:

Form1.vb
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
	Try
		'Lakukan sesuatu disini		
	Catch ex As Exception
		ErrorLog(ex.Message)
	End Try
End Sub

Selamat mencoba.