?? clslogfile.cls
字號:
VERSION 1.0 CLASS
BEGIN
MultiUse = -1 'True
Persistable = 0 'NotPersistable
DataBindingBehavior = 0 'vbNone
DataSourceBehavior = 0 'vbNone
MTSTransactionMode = 0 'NotAnMTSObject
END
Attribute VB_Name = "clsLogFile"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit
'*****************************************
'Add text to the log file
Public Sub AddToLogFile(ByVal text As String)
On Error GoTo Err_LogFile
Dim strFileName As String
strFileName = App.Path & "\logfile.txt"
Const forReading = 1, ForWriting = 2, ForAppending = 8
Dim fs, f
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.OpenTextFile(strFileName, ForAppending, True)
f.Write text
f.Close
Exit_LogFile:
Exit Sub
Err_LogFile:
If Command$ = "" Then
MsgBox Err.Number & " " & Err.Description
End If
Screen.MousePointer = vbDefault
End
Resume Exit_LogFile
End Sub
'******************************************
Public Sub DeleteLogFile()
Dim fs, f
Dim logfile As New clsLogFile
Dim filename As String
On Error Resume Next 'in case of errors
filename = App.Path & "\logfile.txt"
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(filename)
'Delete the file
f.Delete
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -