[½»Á÷] VB.net+ArcEngine¶Ô COM ×é¼þµÄµ÷Ó÷µ»ØÁË´íÎó HRESULT E_FAIL ÒÑÓÐ1È˲ÎÓë

' Create the RasterSurfaceOp object
        Dim pSurfaceOp As ISurfaceOp
        pSurfaceOp = New RasterSurfaceOp
        ' Declare the input before raster object
        Dim pbeforeDataset As IGeoDataset
        Dim pWs As IRasterWorkspace
        Dim pWsFact As IWorkspaceFactory
        'Open the workspace
        pWsFact = New RasterWorkspaceFactory
        pWs = pWsFact.OpenFromFile("F:\רҵÈí¼þÔ´\gis_ex09\ex14", 0)
        ' Calls function to open a raster dataset from disk
        pbeforeDataset = pWs.OpenRasterDataset("grd_presen")
        ' Declare the input after raster object
        Dim pafterDataset As IGeoDataset
        ' Calls function to open a raster dataset from disk
        pafterDataset = pWs.OpenRasterDataset("grd2")
        ' Declare the output raster object
        Dim pOutputRaster As IGeoDataset
        ' Calls the method
        pOutputRaster = pSurfaceOp.CutFill(pbeforeDataset, pafterDataset)
Dim pDS As IDataset
        Dim pRasBandCol As IRasterBandCollection
        pRasBandCol = pOutputRaster
        pDS = pRasBandCol.SaveAs("zzzzz", pWs, "GRID")