打开shapefile格式文件代码

        Dim pShpWksFact As IWorkspaceFactory
        Set pShpWksFact = New ShapefileWorkspaceFactory

        Dim pFeatWks  As IFeatureWorkspace
        Set pFeatWks = pShpWksFact.OpenFromFile(filePath, 0)

        Dim pFeatClass  As IFeatureClass
        Set pFeatClass = pFeatWks.OpenFeatureClass(fileName)

        Dim pFeatureLayer As IFeatureLayer
        Set pFeatureLayer = New FeatureLayer
        Set pFeatureLayer.FeatureClass = pFeatClass

        Dim pDateset As IDataset
        Set pDateset = pFeatClass
        pFeatureLayer.Name = pDateset.Name

        MapControl1.AddLayer pFeatureLayer

        MapControl1.ActiveView.Refresh