Export to SHP with WhereClause

SigurdurGear

Hi

I use this code to export to SHP but if the WhereClause  is null it still make empty SHP file

How can I stop the export if pQFilter.WhereClause is notthing

       Dim pDoc As IMxDocument

        Dim pMap As IMap

        Dim pFLayer As IFeatureLayer

        Dim pFc As IFeatureClass

        Dim pINFeatureClassName As IFeatureClassName

        Dim pDataset As IDataset

        Dim pInDsName As IDatasetName

        Dim pFSel As IFeatureSelection

        Dim pSelSet As ISelectionSet

        Dim pFeatureClassName As IFeatureClassName

        Dim pOutDatasetName As IDatasetName

        Dim pWorkspaceName As IWorkspaceName

        Dim pExportOp As ESRI.ArcGIS.GeoDatabaseUI.IExportOperation

        pDoc = My.ArcMap.Document

        pMap = pDoc.FocusMap

        pFLayer = pMap.Layer(ep_layer)

        pFc = pFLayer.FeatureClass

        pDataset = pFc

        pINFeatureClassName = pDataset.FullName

        pInDsName = pINFeatureClassName

        Dim pQFilter As IQueryFilter

        pQFilter = New QueryFilter

        pQFilter.WhereClause = "TYPE '" & ep_query & "'"

        pFSel = pFLayer

        pSelSet = pFSel.SelectionSet

        If pSelSet.Count = 0 Then

            Exit Sub

        End If

        If pFc.FeatureCount(pQFilter) <= 1 Then

          

            Exit Sub

        ElseIf pFc.FeatureCount(pQFilter) >= 1 Then

            pFeatureClassName = New FeatureClassName

            pOutDatasetName = pFeatureClassName

            pOutDatasetName.Name = ep_name

            pWorkspaceName = New WorkspaceName

            pWorkspaceName.PathName = path.txt

            pWorkspaceName.WorkspaceFactoryProgID = esriCore.shapefileworkspacefactory.1"

            pOutDatasetName.WorkspaceName = pWorkspaceName

            pFeatureClassName.FeatureType = ESRI.ArcGIS.Geodatabase.esriFeatureType.esriFTSimple

            pFeatureClassName.ShapeType = ESRI.ArcGIS.Geometry.esriGeometryType.esriGeometryAny

            pFeatureClassName.ShapeFieldName = "Shape"

            pExportOp = New ESRI.ArcGIS.GeoDatabaseUI.ExportOperation

            pExportOp.ExportFeatureClass(pInDsName, pQFilter, pSelSet, Nothing, pOutDatasetName, 0)

        Else

          

            Exit Sub

        End If

JoshuaBixby

It appears you have an issue where you are never applying your non-spatial filter to your spatial selection or your spatial filter to your non-spatial selection until the ExportFeatureClass call at the very end of your script, hence the empty shape file.  I can't verify my hunch right now because I don't have VBA Compatibility installed.

As an aside, please use code formatting/syntax highlighting as described in Posting Code blocks in the new GeoNet​.  It is much easier for community member to comment when the code has line numbers.

After this line:

pSelSet = pFSel.SelectionSet

Try adding and changing the following to see if it makes any difference:

pSelSet1 = pSelSet.Select(pQFilter)
If pSelSet1.Count = 0 Then
    Exit Sub
End If