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

如果连的是数据库的话，我用以下代码，运行通过，结果是正确的：（可直接看最后红色的代码）

   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

    ''QI to IDataset to prove you have a featureclass...     Dim pdataset As IDataset     Set pdataset = pfeatclass     Dim player As IFeatureLayer     Set player = New FeatureLayer            

   Set player.FeatureClass = pfeatclass                 MapControl1.AddLayer player              Dim aa As String '    Dim pPropertySet As IPropertySet     Set pPropertySet = pdataset.Workspace.ConnectionProperties     aa = pPropertySet.GetProperty("DATABASE")             Text1.Text = aa ; "::" ; pdataset.Name

如果我打开的是一个shp文件，怎么样得到呢？

直接一点就是

   Set pPropertySet = pdataset.Workspace.ConnectionProperties     aa = pPropertySet.GetProperty("？？？")

“？？？”这个参数是什么？

谢谢10楼指点！！！！！

我的想法是

通过 IFeatureClass －》得到IFeatureClassName－－》得到文件名

然后通过IFeatureClassName 得到 IWorkSpaceName

通过IWorkSpaceName 得到目录，

这样就可以了。 不知道对不多。：）

想得到楼主的答案可以这样写代码:

假设pFtCls是需要得到数据源路径的IFeatureClass

Dim pDataset as IDataset

Dim strPath as String

set pDataset = pFtCls

strPath = pDataset .Workspace .PathName

打开的是一个shp文件也是使用  aa = pPropertySet.GetProperty("DATABASE")

谢谢了！

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

偶也不知道楼猪在做什么，：）