How to upgrade an 8.x embedded raster catalog

This sample shows how to upgrade an 8.x embedded raster catalog to a 9.0 raster catalog.

How to use

  1. Call this function from VBA.
[VBA] 
Sub UpgradeRasterCatalog(pSDEWs As IWorkspace, sCatalog As String)
    
    ' Upgrade an 8.x embedded raster catalog to a 9.0 raster catalog
    Dim pWs As IRasterWorkspaceEx
    Set pWs = pSDEWs
    pWs.RegisterAsRasterCatalog sCatalog, "OID", Nothing
    Set pWs = Nothing
    
End Sub