Merhaba
Daha önce yazdığım c# dosya veri yazma işlemi yazımda olduğu gibi aynı işlemleri vb.net ile de yapabiliriz. Bir önceki yazımda olan kodların bire bir vb.net için yazılmış hali aşağıdaki gibidir.
Öncelikle veri yazma işlemini yapacak olan sınıfımızı oluşturalım.

Imports System.IO
 
 
Public Class File
 
    Public Sub Write(ByVal filePath As String, ByVal fileName As String, ByVal strLog As String, Optional isAppend As Boolean = True)
 
        Try
 
            Dim logWriter As StreamWriter = New StreamWriter(filePath + fileName, isAppend)
            logWriter.WriteLine(strLog)
            logWriter.Close()
            logWriter.Dispose()
 
        Catch ex As Exception
            Throw ex
        End Try
 
    End Sub
 
End Class

Artık elimizde yazma işlemini yapacağımız sınıfımız olduğuna göre şimdi bu sınıfı kullanıp basitce bir veri yazma işlemi yapalım.

Imports System
Imports System.Text
Module Program
 
    Sub Main()
 
        Dim file As File = New File()
        Dim i(0) As Byte
        Dim sbLog As StringBuilder = New StringBuilder()
        Dim sbExLog As StringBuilder = New StringBuilder()
 
        Try
            sbLog.AppendLine(DateTime.Now.ToString())
            sbLog.AppendLine("First line")
            sbLog.AppendLine("Second line")
            sbLog.AppendLine("Message")
 
            file.Write("C:\\LogVb\\", "Log.txt", sbLog.ToString())
 
            'programın hata alması ve bu hata mesajını yazmak için eklendi.
            i(999999) = 1
        Catch ex As Exception
            sbExLog.AppendLine(DateTime.Now.ToString())
            sbExLog.AppendLine(ex.Message)
            sbExLog.AppendLine(ex.StackTrace)
            file.Write("C:\\LogVb\\", "ExLog.txt", sbExLog.ToString())
        End Try
 
    End Sub
 
End Module

Yukarıdaki kodlarda görüldüğü gibi file.Write(“C:\\LogVb\\”, “Log.txt”, sbLog.ToString())satırında istediğimiz mesajı belirtiğimiz dosya yolu ve ismi ile kayıt edebiliriz. Buna ilave olarakfile.Write(“C:\\LogVb\\”, “ExLog.txt”, sbExLog.ToString()) satırında ise bir hata durmunda yine aynı yöntem ise bir başka dosyaya ya da istenirse aynı dosya içine hata bilgileri de yazdırılabilinir. Basitçe yaptığmız bu işlem ihtiyaçlara göre değiştirilip daha da kapsamlı olarak kullanılabilinir.

Kodlar çalıştırıldığında oluşan örnek dosyaların içeriği aşağıdaki gibidir.

[Log.txt]

26.03.2016 14:05:37
First line
Second line
Message

[ExLog.txt]

26.03.2016 14:05:37
Dizin, dizi sınırlarının dışındaydı.
   konum: ConsoleLogVb.Program.Main() D:\TfsDevelop\Main\ConsoleLogVb\ConsoleLogVb\Program.vb içinde: satır 21

Kolay gelsin.