在vba userform中记录用户活动

Question

我正在尝试处理一个代码，该代码将为我创建的userform上的用户活动。我希望尽可能将此日志文件保留在共享驱动器中。  下面是我的代码，没有在日志文件夹中获取任何记录

Sub LogInformation(LogMessage As String)

    Const LogFileName As String = "D:\FOLDERNAME\TEXTFILE.LOG"

    Dim FileNum As Integer

    FileNum = FreeFile ' next file number

    Open LogFileName For Append As #FileNum ' creates the file if it doesn't exist

    Print #FileNum, LogMessage ' write information at the end of the text file

    Close #FileNum ' close the file

End Sub


Public Sub DisplayLastLogInformation()

    Const LogFileName As String = "D:\FOLDERNAME\TEXTFILE.LOG"

    Dim FileNum As Integer, tLine As String

    FileNum = FreeFile ' next file number

    Open LogFileName For Input Access Read Shared As #f ' open the file for reading

    Do While Not EOF(FileNum)

        Line Input #FileNum, tLine ' read a line from the text file

    Loop ' until the last line is read

    Close #FileNum ' close the file

    MsgBox tLine, vbInformation, "Last log information:"

End Sub


Sub DeleteLogFile(FullFileName As String)

    On Error Resume Next ' ignore possible errors

    Kill FullFileName ' delete the file if it exists and it is possible

    On Error GoTo 0 ' break on errors

End Sub

Private Sub Workbook_Open()

    LogInformation ThisWorkbook.Name & " opened by " & _

    Application.UserName & " " & Format(Now, "yyyy-mm-dd hh:mm")

End Sub