关于工作空间， ShapeFile工作空间，图元工作空间，图元类

Function OpenFeatureClass2(ByVal strPath As String, ByVal strName As String) As IFeatureClass




On Error GoTo ErrHandle




'/定义 工作空间 接口


Dim pWorkSpace As IWorkspaceFactory




'/用ShapeFile工作空间实例来实行该接口


Set pWorkSpace = New ShapefileWorkspaceFactory




'/工作空间下面有图元工作空间，定义这样一个接口


Dim pFeatureWorkSpace As IFeatureWorkspace




'/用工作空间打开某Shape文件，返回这样一个图元工作空间


Set pFeatureWorkSpace = pWorkSpace.OpenFromFile(strPath, 0)




'/图元类接口的实现，用图元工作空间的OpenFeatureClass 实现


OpenFeatureClass2 = pFeatureWorkSpace.OpenFeatureClass(strName)






ErrHandle:


Set OpenFeatureClass2 = Nothing




End Function