怎样通过SDE的图层获取到对应的Imetadata?

<P>一般是用arccatalog的VBA程序来获取IGxObject，Set pMetadata = pGxObject就可以实现。但我想用独立VB工程，目前连接到SDE数据库，可以获取到featureclass，怎么能获得这个Imetadata这个接口呢？arccatalog的VBA程序：</P>
<P>Sub ExportMetaDataFromPath(sInPath As String, sOutPath As String)</P>
<P>Dim pApp As IGxApplication<BR>Set pApp = Application</P>
<P>Dim pCatalog As IGxCatalog<BR>Set pCatalog = pApp.Catalog</P>
<P>Dim pGxObject As IGxObject<BR>Dim numFound As Long<BR>Dim v As Variant<BR>Set pGxObject = pApp.SelectedObject<BR>Dim pMetadata As IMetadata<BR>Set pMetadata = pGxObject<BR></P>
<P>If Not pGxObject Is Nothing Then<BR>    <BR>    Dim pMetadata As IMetadata<BR>    Set pMetadata = pGxObject<BR>    <BR>    Dim pExportHTML As ExportHTML<BR>    Set pExportHTML = New ExportHTML<BR>    Dim pExportMPHTML As ExportMPHTML<BR>    Set pExportMPHTML = New ExportMPHTML<BR>    <BR>    Dim pExport As IMetadataExport<BR>    Set pExport = pExportMPHTML<BR>    <BR>    pExport.Export pMetadata, sOutPath ; "\" ; pGxObject.Name ; ".html"</P>
<P>End If</P>
<P>End Sub</P>

在线等