Le portail francophone de la géomatique

    Dim pGxLayer As esriCatalog.IGxLayer
    Dim pGxFile As esriCatalog.IGxFile
    Dim pObjFactory As IObjectFactory
    Dim strLayerPath As String
    Dim pMxDoc As esriArcMapUI.IMxDocument
    Dim pMap As esriCarto.IMap
    
    Set pMxDoc = ThisDocument
    Set pObjFactory = Application

    Set pGxLayer = pObjFactory.Create("esriCatalog.GxLayer")
    Set pGxFile = pGxLayer

    ' Set this variable to the location of you layer file
    strLayerPath = "d:\data\test.lyr"
    
    pGxFile.Path = strLayerPath

    If Not pGxLayer.Layer Is Nothing Then
        ' Ouverture du fichier mxd par AV
        Set pMap = pMxDoc.FocusMap
        pMap.AddLayer pGxLayer.Layer
    End If

  Dim pRasterDataset As IRasterdataset
  Dim pRasterWs As IRasterWorkspace
  Set pRasterWs = OpenRasterWorkspace("D:\data")
  Set pRasterDataset = pRasterWs.OpenRasterDataset("airphoto.img",0)

Sub BuildPyramid()
    'http://support.esri.com/index.cfm?fa=knowledgebase.techarticles.articleShow&d=15921
    
    Dim pWorkspaceFactory As IWorkspaceFactory
    Dim pWorkspace As IWorkspace
    Dim pRasterDataset As IRasterDataset
    Dim pEnumDataset As IEnumDataset
    
    Set pWorkspaceFactory = New RasterWorkspaceFactory
    Set pWorkspace = pWorkspaceFactory.OpenFromFile("d:\TempData", 0)
    
    Set pEnumDataset = pWorkspace.Datasets(esriDTRasterDataset)
    Set pRasterDataset = pEnumDataset.Next
    Do Until pRasterDataset Is Nothing
        'QI for IRasterPyramid from IRasterDataset
        Dim pRasterPyramid As IRasterPyramid
        Set pRasterPyramid = pRasterDataset
        If pRasterPyramid.Present = False Then
            pRasterPyramid.Create
            MsgBox "Created Pyramid for " & pRasterDataset.CompleteName
        Else
            MsgBox "Pyramid already exists for " & pRasterDataset.CompleteName
        End If
        Set pRasterDataset = pEnumDataset.Next
    Loop

End Sub