@mahesh_a_patil
Hi Mahesh,
it is pretty forward.
Just change extension of analysis log file name to .txt.
SetLocale("en-us")
Dim SynergyGetter, Synergy
On Error Resume Next
Set SynergyGetter = GetObject(CreateObject("WScript.Shell").ExpandEnvironmentStrings("%SAInstance%"))
On Error GoTo 0
If (Not IsEmpty(SynergyGetter)) Then
Set Synergy = SynergyGetter.GetSASynergy
Else
Set Synergy = CreateObject("synergy.Synergy")
End If
Synergy.SetUnits "Metric"
Set StudyDoc = Synergy.StudyDoc
StudyDoc.ExportAnalysisLog "C:\\temp\\write_analysis_log.txt"
Hope this helps.
Regards,
Berndt
( If my comments are accepted, provide "Kudos" as appreciation. If your request is answered/resolved, please click the "Accept as Solution" button. Thanks.)