File Handling : Creating the Logs in Visual Basic 2008

Submitted by janobe on Monday, April 28, 2014 - 20:45.
In this tutorial I will teach you how to create logs in Visual Basic 2008. Logs are very important because it records previous transactions and day to day activities of the system. For instance, in a log in system, you can determine the time and who is the user that had logged in the system. And whenever your system has a problem you can easily determine what was it with the help of logs. So, let’s begin: Open Visual Basic 2008, create a New Windows application , drag a RichTextBox, and a Button in the Form. And it will look like this. firstform Note: Put this system.IO for your imports.
  1. Imports System.IO
Double click the "Create Logs" Button to fire the click event handler and do the following code to the method.
  1.     Private Sub btncreatelog_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncreatelog.Click
  2.         'DECLARE A STRING VARIABLE TO HOLD THE PATH AND THE NAME OF THE LOG FILE
  3.         Dim path_file As String = String.Format(Application.StartupPath & "\Logs.log", DateTime.Today.ToString("dd-MMM-yyyy"))
  4.         'DECLARE A BOOLEAN VARIABLE TO DETERMINE WHETHER THE SPECIFIED FILE EXIST.
  5.         Dim exist_file As Boolean = File.Exists(path_file)
  6.         'CALL STREAMWRITER AND USE IT TO CREATE A LOG FILE.
  7.         Using stream_writer As New StreamWriter(path_file, True)
  8.             If Not exist_file Then 'CHECK THE LOG FILE IF IT DOES'NT EXIST.
  9.                 'RESULT
  10.                 'WRITE THE TEXT IN THE FIRST LINE.
  11.                 stream_writer.WriteLine("Log starts")
  12.             End If
  13.             'WRITE THE ERROR MESSAGE.
  14.             stream_writer.WriteLine("The Error Occured at " & DateTime.Now & " " & RichTextBox1.Text)
  15.         End Using
  16.         MsgBox("Log Saved.", MsgBoxStyle.ApplicationModal)
  17.     End Sub
Go back to the design views, double click the "Show Logs" Button and do the following code in the method for showing your logs in a RichTextBox.
  1.     Private Sub btnshowlog_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnshowlog.Click
  2.         'DECLARE A STRING VARIABLE TO HOLD THE PATH AND THE NAME OF THE LOG FILE
  3.         Dim path_file As String = Application.StartupPath & "\Logs.log"
  4.         'CHECK THE FILE IS EXIST.
  5.         If File.Exists(path_file) = True Then
  6.             'CALL STREAMREADER AND USE IT TO READ A LOG FILE.
  7.             Dim stream_reader As New StreamReader(path_file)
  8.             'PUT THE LOG FILE IN THE RICH BOX.
  9.             RichTextBox2.Text = stream_reader.ReadToEnd
  10.             stream_reader.Close()
  11.         Else
  12.             MsgBox("The File Does Not Exist.", MsgBoxStyle.Exclamation)
  13.         End If
  14.     End Sub
The logs file is in the bin of the application. Now, you can download the complete source code.
Tags
File handling
logs
visual basic

Add new comment

About text formats
  • 64 views