Class SimpleTextLogger
Private FileInstance
Private strFilePath
Private Sub Class_Initialize
Dim fso, currTime, sPrefix
currTime = Now()
sPrefix = "" & Year(currTime) & Month(currTime) & Day(currTime) & "_" &_
Hour(currTime) & Minute(currTime) & Second(currTime) & "_"
strFilePath = DataTable("LogFilePath", dtGlobalSheet) & sPrefix &_
DataTable("LogFileName", dtGlobalSheet) & ".txt"
Set fso = CreateObject("Scripting.FileSystemObject")
Set FileInstance = fso.CreateTextFile(strFilePath, True)
End Sub
Private Sub Class_Terminate
FileInstance.Close
AboutLogger
End Sub
Public Sub WriteLogLine(strLogInfo)
Dim strResult
strResult = Trim( Now() ) & vbTab & strLogInfo
FileInstance.WriteLine(strResult)
End Sub
Private Sub AboutLogger
MsgBox("Your log is saved in """ & strFilePath & """")
End Sub
End ClassПри вызове метода WriteLogLine("Hello") возникает ошибка "Invalid procedure call or argument". Если скобки убрать, то пишет "Syntax Error". Объект создается в отдельном файле с библиотекой:Set objTotalReporter = New SimpleTextLogger
Часть логгера, который пишет в Эксель работает нормально. Текстовый же файл создается также, но потом в него не пишутся строки. Никто не сталкивался с такой проблемой? Переустановка QTP не помогла.


