摘要：1 Private Sub ReadWriteLog() 2 3 Dim fsObj As New Scripting.FileSystemObject 4 Dim fileTextStream As Scripting.TextStream 5 Dim fileText As String 6... 阅读全文

摘要：1 Private Sub WriteLog(method As String, message As String) 2 'Write Error LogFile 3 4 Dim ifile As Long 5 ifile = FreeFile 6 Open "C:\L... 阅读全文