VB 日志 弹出错误提示后继续

Public Function jxerror(item As String)


Dim strPath$, strFileName$, strTmp$, iSeq%
    strPath = App.Path & "\"    '当前目录
    strTmp = Format(date, "yyyy-mm-dd")    '文件名称
    strFileName = strPath & strTmp & ".log" '假设文件类型为TXT文本文件
    


   Open strFileName For Append As #1


    Print #1, "[" & Now & "]    " & item '写入文件内容
    Close #1
    
Set fs = CreateObject("Scripting.FileSystemObject") '创建FileSystemObject 对象
Set f = fs.GetFile(strFileName)
  If (f.Size) > 102400000 Then Kill (strFileName) '大于10M删除文件

Shell "notepad " & strFileName , 1

End Function

Public Function LOGW(item As String)

On Error Resume Next
Dim strPath$, strFileName$, strTmp$, iSeq%
    strPath = App.Path & "\"    '当前目录
    strTmp = Format(date, "yyyy-mm-dd")    '文件名称
    strFileName = strPath & strTmp & ".log" '假设文件类型为TXT文本文件
    


   Open strFileName For Append As #1


    Print #1, "[" & Now & "]    " & item '写入文件内容
    Close #1
    
Set fs = CreateObject("Scripting.FileSystemObject") '创建FileSystemObject 对象
Set f = fs.GetFile(strFileName)
  If (f.Size) > 102400000 Then Kill (strFileName) '大于10M删除文件
  'If Len(VB_文件同步限制关键词.Text2.Text) > 10240 Then VB_文件同步限制关键词.Text2.Text = Right(VB_文件同步限制关键词.Text2.Text, 1024)
  'VB_文件同步限制关键词.Text2.Text = VB_文件同步限制关键词.Text2.Text & vbCrLf & Now & "    " & item
  ' VB_文件同步限制关键词.Text2.SelStart = Len(VB_文件同步限制关键词.Text2.Text)
   'DoEvents

End Function