Forum Discussion
liquidphantom
7 years agoOccasional Contributor
I wrote this vb script for my log files "strPrefix" refers to a variable I have that prefixes a the file with Passed, error, timeout etc depending on a flag set in one of the general events.
It will create a TestExecuteLogs folder in root c:\ and a date stamped folder in there, in those folders each log will have a datetime stamp in the file name.
Sub SaveLog Dim CurDate, CurTime, strCurDate, strCurTime, strFolder, strFile, strPrefix, strLogPath strPrefix = Project.Variables.strLogPrefix strLogPath = ProjectSuite.Variables.strSuitePath 'get current date and time CurDate = aqDateTime.Today CurTime = aqDateTime.Time 'convert current date and time strCurDate = aqConvert.DateTimeToFormatStr(CurDate, "%Y%m%d") strCurTime = aqConvert.DateTimeToFormatStr(CurTime, "%H%M%S") strCurTime = Replace(strCurTime, ":","-") Log.SaveToDisk 'Log save breakpoint 'Save log out to mht package strFolder = "C:\TestExecuteLogs\" & strCurDate &"\" strFile = strPrefix & "Log" & "_" & strCurDate & "_" & strCurTime & ".mht" If aqFileSystem.Exists(strFolder) = True Then Call Log.SaveResultsAs(strFolder & strFile, lsMHT) End If If aqFileSystem.CreateFolder(strFolder) = 0 Then Call Log.SaveResultsAs(strFolder & strFile, lsMHT) End If End Sub