Save As Log.mht rename file name as a date. Then send out email.

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