Sure, no problem @elwayfan446. Here is the SASEGItemType enumeration defined in SASEGScripting.dll:
public enum SASEGItemType
{
egLog = 0,
egCode = 1,
egData = 2,
egQuery = 3,
egContainer = 4,
egDocBuilder = 5,
egNote = 6,
egResult = 7,
egTask = 8,
egTaskCode = 9,
egProjectParameter = 10,
egOutputData = 11,
egStoredProcess = 12,
egStoredProcessParameter = 13,
egPublishAction = 14,
egCube = 0xF,
egReport = 18,
egReportSnapshot = 19,
egOrderedList = 20,
egSchedule = 21,
egLink = 22,
egFile = 23,
egIntrNetApp = 24,
egInformationMap = 25,
egProjectLog = 26
}
And here are the types that explicitly expose a Log property:
Task Query StoredProcess Code PublishAction
And the Log type exposes a Text property.
So, your updated code might look something like this:
'-----
' export the log for each runnable item in a specific process flow
'-----
const SASEGItemType_egLog = 0
const SASEGItemType_egCode = 1
const SASEGItemType_egQuery = 3
const SASEGItemType_egTask = 8
const SASEGItemType_egStoredProcess = 12
const SASEGItemType_egPublishAction = 14
Dim item
Set containerObject = prjObject.ContainerCollection.Item("Process Flow 2")
For Each item in containerObject.Items
If item.Type = SASEGItemType_egCode Or _
item.Type = SASEGItemType_egQuery Or _
item.Type = SASEGItemType_egTask Or _
item.Type = SASEGItemType_egStoredProcess Or _
item.Type = SASEGItemType_egPublishAction Then
'MsgBox item.Log.Text
item.Log.SaveAs "c:\temp\" & item.Name & ".log"
ElseIf item.Type = SASEGItemType_egLog Then
'MsgBox item.Text
item.SaveAs "c:\temp\" & item.Name & ".log"
End If
Next
Casey
... View more
