Dim pWsf As IWorkspaceFactory
Set pWsf = New RasterWorkspaceFactory
Dim pRasterWs As IRasterWorkspace
Set pRasterWs = pWsf.OpenFromFile("d:/AE/testData", 0)
Dim pRasterDs As IRasterDataset2
Set pRasterDs = pRasterWs.OpenRasterDataset("tif1.tif")
Dim pRaster As IRaster2
Set pRaster = pRasterDs.CreateFullRaster
Dim pSaveAs As ISaveAs
Set pSaveAs = pRaster
pSaveAs.SaveAs "ss.pix", pRasterWs, "PIX"
Set pWsf = New RasterWorkspaceFactory
Dim pRasterWs As IRasterWorkspace
Set pRasterWs = pWsf.OpenFromFile("d:/AE/testData", 0)
Dim pRasterDs As IRasterDataset2
Set pRasterDs = pRasterWs.OpenRasterDataset("tif1.tif")
Dim pRaster As IRaster2
Set pRaster = pRasterDs.CreateFullRaster
Dim pSaveAs As ISaveAs
Set pSaveAs = pRaster
pSaveAs.SaveAs "ss.pix", pRasterWs, "PIX"