[RESOLVED] Creating daily Log file - need nudge in right direction-VBForums
Results 1 to 4 of 4

Thread: [RESOLVED] Creating daily Log file - need nudge in right direction

  1. #1

    Thread Starter
    New Member
    Join Date
    Jun 2010
    Posts
    10

    Resolved [RESOLVED] Creating daily Log file - need nudge in right direction

    I am using some helpful code found here: http://codingresolved.com/discussion...y-log-files/p1

    I have built a simple form based on his sample and wanted to simply log a button press. I am not seeing a clear variable to actually write to the file created daily.... some help would be appreciated since I am intermediate at best and ask a lot of obvious questions....

    Here is my sample form:
    Code:
    Imports System.IO
    
    Public Class Form1
    
    
        Public Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            Label1.Text = DateTime.Now.ToShortDateString
            Try
                Dim LogFileName As String
                LogFileName = DateTime.Now.Day.ToString() + "-" + DateTime.Now.Month.ToString() + "-" + DateTime.Now.Year.ToString()
                LogFileName = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) + "\Sessions " + LogFileName + " .txt"
                Dim fs As New FileStream(LogFileName, FileMode.OpenOrCreate, FileAccess.Write)
                'Dim fs As New FileStream("C:\Sessions + '" + LogFileName + "' + .txt", FileMode.OpenOrCreate, FileAccess.Write)
    
                Dim m_streamWriter As New StreamWriter(fs)
            Catch ex As Exception
            End Try
            Timer1.Start()
        End Sub '- See more at: http://codingresolved.com/discussion/722/how-to-create-daily-log-files/p1#sthash.N9wLM9zc.dpuf
    
        Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
            Dim day As Integer = DateDiff(DateInterval.Day, CDate(Label1.Text), CDate(DateTime.Now.ToShortDateString))
            Dim a As Integer = day
            If day >= 1 Then
                Dim LogFileName As String
                LogFileName = DateTime.Now.Day.ToString() + "-" + DateTime.Now.Month.ToString() + "-" + DateTime.Now.Year.ToString()
                LogFileName = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) + "\Sessions " + LogFileName + " .txt"
                Dim fs As New FileStream(LogFileName, FileMode.OpenOrCreate, FileAccess.Write)
                Dim m_streamWriter As New StreamWriter(fs)
                Label1.Text = DateTime.Now.ToShortDateString
            End If '- See more at: http://codingresolved.com/discussion/722/how-to-create-daily-log-files/p1#sthash.N9wLM9zc.dpuf
        End Sub
    
        Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
            Dim logtext As String = Date.Now & "Macro Created:" & "--" & " " & "Subject:" & " " & "--" & " " & vbCrLf
            My.Computer.FileSystem.WriteAllText(HOW DO I POINT THIS TO THE FILE CREATED DAILY?, logtext, True)
        End Sub
    
    End Class

  2. #2
    Hyperactive Member
    Join Date
    Oct 2010
    Location
    Indiana
    Posts
    457

    Re: Creating daily Log file - need nudge in right direction

    You might want to check out the MSDN How Do I video series. This is the link to the VB videos:
    http://msdn.microsoft.com/en-us/vstudio/bb466226.aspx

    Scroll down about 3/4 of the way down, and you will see their "Windows Development Video Series" which contains videos for logging.

  3. #3

    Thread Starter
    New Member
    Join Date
    Jun 2010
    Posts
    10

    Re: Creating daily Log file - need nudge in right direction

    Quote Originally Posted by nO_OnE View Post
    You might want to check out the MSDN How Do I video series. This is the link to the VB videos:
    http://msdn.microsoft.com/en-us/vstudio/bb466226.aspx

    Scroll down about 3/4 of the way down, and you will see their "Windows Development Video Series" which contains videos for logging.
    Simply AMAZING, Thank you....

    I had done a series of google searches and it kept pointing to event viewer logging in windows and I just hate the event viewer....terrible.

    This will solve my problem 100% I am about 1/2 way through the video and it looks like I will be able to do exactly what we wanted plus more without a bunch of extraneous code added. I came from VB6 and have evolved through VS2008-2013 and am finally impressed with the simple yet useful things added

    Good Kharma to you sir! I was annoyed at first thinking you were trolling me to go google something but you pointed me to something I was able to learn! :P

  4. #4
    Hyperactive Member
    Join Date
    Oct 2010
    Location
    Indiana
    Posts
    457

    Re: Creating daily Log file - need nudge in right direction

    Lol, glad to be of assistance!

Tags for this Thread

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  



Featured


Click Here to Expand Forum to Full Width

Survey posted by VBForums.