ArmandsBruns
12 years agoFrequent Contributor
Log.SaveResultsAs ".mht"
Hi,
Maybe someone can help me.
I am using the following procedure:
everything works very good.
Only I wish to file size for each test case will be
Is it possible that the file size of each test case has its own size, not every time increase.
-----------------------------------------------------------
Sub Export_TestComplete_Log_Files(TestCase)
Dim FileName, TC
sPath = Project.Variables.TestCompleteLogFiles
Call aqFileSystem.CreateFolder(sPath)
Log.Message ""+sPath+""
TC = TestCase & "_Test_Case
Time_now=Utilities.Now
Date=Utilities.FormatDateTime("yyyy.mm.dd", Time_now)
Time=Utilities.FormatDateTime("hh.nn.ss", Time_now)
FileName=""+Project.Variables.TestCompleteLogFiles+""+TC+"_"+Project.variables.version+"_"+VarToStr(Date)+"_"+VarToStr(Time)+".mht"
Log.Message ""+FileName+""
Log.SaveResultsAs FileName, 2
End Sub
-----------------------------------------------------------
Best regards
Armands
Maybe someone can help me.
I am using the following procedure:
everything works very good.
Only I wish to file size for each test case will be
Is it possible that the file size of each test case has its own size, not every time increase.
-----------------------------------------------------------
Sub Export_TestComplete_Log_Files(TestCase)
Dim FileName, TC
sPath = Project.Variables.TestCompleteLogFiles
Call aqFileSystem.CreateFolder(sPath)
Log.Message ""+sPath+""
TC = TestCase & "_Test_Case
Time_now=Utilities.Now
Date=Utilities.FormatDateTime("yyyy.mm.dd", Time_now)
Time=Utilities.FormatDateTime("hh.nn.ss", Time_now)
FileName=""+Project.Variables.TestCompleteLogFiles+""+TC+"_"+Project.variables.version+"_"+VarToStr(Date)+"_"+VarToStr(Time)+".mht"
Log.Message ""+FileName+""
Log.SaveResultsAs FileName, 2
End Sub
-----------------------------------------------------------
Best regards
Armands
- I believe this means that TestComplete will export the log per the items as defined on the Test Items tab of the current Project.