clslogfile.cls

来自「simple vb ftp file tranfer project code」· CLS 代码 · 共 64 行

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