Hi,
I'm trying to read FileSummaryInfo.Customproperties but I get an error
while trying to read the entries. Any ideas what I'm missing/doing wrong in
here?
/ Tomi
Public Shared Function GetCustomProperty(ByVal doc As Document, ByVal
szCustomProp As String) As String
Dim oAcadSummaryInfo As DatabaseSummaryInfo
Dim oAcadDB As Database = doc.Database
oAcadSummaryInfo = oAcadDB.SummaryInfo
Try
Dim oCustomProps As System.Collections.IDictionaryEnumerator =
oAcadSummaryInfo.CustomProperties
oCustomProps.Reset()
oCustomProps.MoveNext()
Do While oCustomProps.MoveNext = True
If oCustomProps.Key = szCustomProp Then
Return oCustomProps.Value.ToString
End If
oCustomProps.MoveNext()
Loop
Catch
Return Nothing
End Try
End Function