Копирование слоя (с источником данных)

Question

Каким образом проще всего скопировать слой у которого источником данных является шейп-файл?
Копирование нужно осуществить из одного группового слоя в другой, причем источник данных также должен быть скопирован.
Пока планирую делать так:
1. Найти местоположение источника данных слоя.
2. Копировать шейп-файл источника (с набором файлов к нему)
3. Создать новый слой, методом OpenFromFile

Если такой способ подойдет, то каким образом можно определить полный путь к файлу-источнику данных слоя?
    
    

Answer 1

Function GetFCName(pFC As IFeatureClass) As String
   Dim pDS As IDataset
   Set pDS = pFC
   GetFCName = pDS.Name
End Function

Function GetWorkspace(pFC As IFeatureClass) As IWorkspace
   Dim pDS As IDataset
   Set pDS = pFC
   Set GetWorkspace = pDS.Workspace
End Function

Function GetFCFilePathName(pFC As IFeatureClass) As String
   Dim pDS As IDataset
   Set pDS = pFC
   GetFCFilePathName=pDS.Workspace.PathName
End Function

и т.д....