AE中获得datalayer所对应的data的文件路径和文件名

''' <summary>

''' 获得datalayer所对应的文件路径

''' </summary>

''' <param name="pDataLayer">图层</param>

''' <param name="pFilePath">文件路径</param>

''' <param name="pFileName">文件名</param>

''' <remarks></remarks>

PublicSub GetDataLayerPath(ByVal pDataLayer As IDataLayer, ByRef pFilePath AsString, ByRef pFileName AsString)

Dim pDatasetName As IDatasetName

Dim pWSName As IWorkspaceName

pDatasetName = pDataLayer.DataSourceName

pWSName = pDatasetName.WorkspaceName

pFilePath = pWSName.PathName

pFileName = pDatasetName.Name

End Sub