记录程序运行日志

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub


    Private Sub 写日志(日志内容 As String)
        '判断日志目录是否存在
        Dim 日志目录 As String = My.Computer.FileSystem.CurrentDirectory & "\日志"
        If Not My.Computer.FileSystem.DirectoryExists(日志目录) Then My.Computer.FileSystem.CreateDirectory(日志目录)

        '判断日志文件是否存在
        Dim 日志文件 As String = My.Computer.FileSystem.CurrentDirectory & "\日志\" & Now.ToString("yyyyMMdd") & ".txt"
        If Not My.Computer.FileSystem.FileExists(日志文件) Then  '不存在 直接写
            My.Computer.FileSystem.WriteAllText(日志文件, Now.ToString("hh:mm:ss.fff") & vbCrLf & 日志内容 & vbCrLf, False)
        Else                                                     '存在   先读取原来的，把现在的写到最前面
            My.Computer.FileSystem.WriteAllText(日志文件, Now.ToString("hh:mm:ss.fff") & vbCrLf & 日志内容 & vbCrLf & My.Computer.FileSystem.ReadAllText(日志文件), False)
        End If
    End Sub
    Function 读今天日志() As String
        Return My.Computer.FileSystem.ReadAllText(My.Computer.FileSystem.CurrentDirectory & "\日志\" & Now.ToString("yyyyMMdd") & ".txt")
    End Function

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        写日志("打开软件")
        TextBox1.Text = 读今天日志()
    End Sub

End Class