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

 
	![[QTP 10] Поломался скриптСсылка на это сообщение #1](https://software-testing.ru/forum/public/style_images/master/icon_share.png) 
					







