AO怎样由featureclass得到数据源的位置

<P>如果连的是数据库的话，我用以下代码，运行通过，结果是正确的：（可直接看最后红色的代码）</P>
<P>    Dim pWorkspaceFactory As IWorkspaceFactory
    Set pWorkspaceFactory = New AccessWorkspaceFactory
    Dim pPropertySet As IPropertySet
    Set pPropertySet = New PropertySet
    pPropertySet.SetProperty "DATABASE", F:\arcgis\DeveloperKit\samples\data\usa\usa.mdb"
    Dim pWorkspace As IWorkspace
    Set pWorkspace = pWorkspaceFactory.Open(pPropertySet, Me.hWnd)
    Dim pEnumDataSet  As IEnumDataset
    
'    Set pEnumDataSet = pWorkspace.Datasets(esriDTFeatureClass)
    Set pEnumDataSet = pWorkspace.Datasets(esriDTFeatureDataset)
    Dim pFeatureDataset As IFeatureDataset
    Set pFeatureDataset = pEnumDataSet.Next
        
    Dim pfeatclass As IFeatureClass
    Set pfeatclass = pFeatureDataset.Subsets.Next</P>
<P>
    ''QI to IDataset to prove you have a featureclass...
    Dim pdataset As IDataset
    Set pdataset = pfeatclass
    Dim player As IFeatureLayer
    Set player = New FeatureLayer             </P>
<P>    Set player.FeatureClass = pfeatclass            
    MapControl1.AddLayer player    
    
    Dim aa As String
'    Dim pPropertySet As IPropertySet
    Set pPropertySet = pdataset.Workspace.ConnectionProperties
    <FONT color=#ff0000>aa = pPropertySet.GetProperty("DATABASE")</FONT>
      
     Text1.Text = aa ; "::" ; pdataset.Name</P>
<P>如果我打开的是一个shp文件，怎么样得到呢？</P>
<P>直接一点就是</P>
<P>    Set pPropertySet = pdataset.Workspace.ConnectionProperties
    <FONT color=#ff0000>aa = pPropertySet.GetProperty("？？？")</FONT></P>
<P><FONT color=#ff0000>“？？？”这个参数是什么？</FONT></P>
<P><FONT color=#ff0000></FONT></P>

<P>谢谢10楼指点！！！！！</P><img src="images/post/smile/dvbbs/em01.gif" /><img src="images/post/smile/dvbbs/em02.gif" /><img src="images/post/smile/dvbbs/em05.gif" /><img src="images/post/smile/dvbbs/em08.gif" />

<P>我的想法是</P><P>通过 IFeatureClass －》得到IFeatureClassName－－》得到文件名</P><P>然后通过IFeatureClassName 得到 IWorkSpaceName</P><P>通过IWorkSpaceName 得到目录， </P><P>这样就可以了。 不知道对不多。：）</P>

谢谢了！

<P>想得到楼主的答案可以这样写代码:</P><P>假设pFtCls是需要得到数据源路径的IFeatureClass</P><P>Dim pDataset as IDataset</P><P>Dim strPath as String</P><P>set pDataset = pFtCls</P><P>strPath = pDataset .Workspace .PathName </P>

<P>打开的是一个shp文件也是使用  <FONT color=#ff0000>aa = pPropertySet.GetProperty("DATABASE")</FONT>
</P>

shp和目录没关系的，所以不能这样来获取，文件路径很容易获取啊，和其他文件没区别的

<P>谢谢了！</P><P>我是想在打开一个shp文件后，由featureclass得到该文件的位置，用文本框显示出来，看来只能在打开文件的时候，动点脑筋了。</P>

<P>偶也不知道楼猪在做什么，：）</P><img src="images/post/smile/dvbbs/em02.gif" />

打开SHP,无法用propertySet