Brug af Public function i et class object
Hej AlleJeg har lavet følgende Public Function module:
Public Function LogFilePath() As String
filnavn = "C:\Temp\Logs\" & fosusername() & Format(Now(), "yyyymmdd_hh_mm_ss") & ".txt"
End Function
Dette har jeg gjort for at jeg ikke skal ændre log-fil stien i flere class objecter.
Men når jeg prøver følgende:
'Create LogFile
Call LogFilePath
'opret - skriv til - luk - Gør fil ReadOnly
With CreateObject("Scripting.FileSystemObject").CreateTextFile(filnavn, False)
.WriteLine ("" & fosusername & "")
.WriteLine ("" & LogMessagetxt2 & LogMessagetxt & "")
.WriteLine "File Created on: " & Date & " " & Time
.Close: End With
SetAttr filnavn, vbReadOnly
Virker det ikke helt som jeg tænkte... HVad gør jeg forkert?