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 не помогла.