Le portail francophone de la géomatique

Public Sub ExportAll_TOC()



Dim pDoc As IMxDocument

Dim pEnumLayer As IEnumLayer

Dim pLayer As IFeatureLayer

Dim pName As IName

Dim pLayerSet As ISet

Dim pMap As IMap

Dim pFC As IFeatureClass

Dim pINFeatureClassName As IFeatureClassName

Dim pDataset As IDataset

Dim pInDSName As IDatasetName

Dim pFields As IFields

Dim pField As IField

Dim pGeometryDef As IGeometryDef

Dim pFeatureClassName As IFeatureClassName

Dim pOutDatasetName As IDatasetName

Dim pWorkspaceName As IWorkspaceName

Dim pExportOp As IExportOperation



Set pDoc = Application.Document

Set pMap = pDoc.FocusMap

Set pEnumLayer = pMap.Layers

Set pLayerSet = New esriSystem.Set

pEnumLayer.Reset

Set pLayer = pEnumLayer.Next



Do Until pLayer Is Nothing

'Enumerate through the layers in the TOC and

'Get the Feature Class Name from the featureclass

    Set pFC = pLayer.FeatureClass

    Set pDataset = pFC

    Set pINFeatureClassName = pDataset.FullName

    Set pInDSName = pINFeatureClassName

    Set pFields = pFC.Fields

    Set pField = pFields.Field(lGeomIndex)

    Set pGeometryDef = pField.GeometryDef

    Set pFeatureClassName = New FeatureClassName

    Set pOutDatasetName = pFeatureClassName

    

    'Assign name to each exported layer

        pLayerSet.Add pLayer

        For i = 0 To pLayerSet.Count - 1

            X = pLayerSet.Count - 1

            pOutDatasetName.Name = pDataset.Name 

        Next i



    Set pWorkspaceName = New WorkspaceName

    pWorkspaceName.PathName = "C:\temp"

    pWorkspaceName.WorkspaceFactoryProgID = "esriDataSourcesFile.ShapefileWorkspaceFactory"

    Set pOutDatasetName.WorkspaceName = pWorkspaceName



    'Export the layers in the TOC

    Set pExportOp = New ExportOperation

    pExportOp.ExportFeatureClass pInDSName, Nothing, Nothing, pGeometryDef, pOutDatasetName, hWnd



    Set pLayer = pEnumLayer.Next



Loop



'Update the table of contents

pDoc.UpdateContents



End Sub