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
记录程序运行日志
最新推荐文章于 2024-09-14 18:46:05 发布