Catalog

• ArcGIS for Desktop Basic
• ArcGIS for Desktop Standard
• ArcGIS for Desktop Advanced

• GxCatalog
• GxObject
• GxObjectContainer
• GxObjectFilter
• Metadata import and export

GxCatalog

Dim gxApp As IGxApplication
Dim gxCat As IGxCatalog
gxApp=TryCast(Application, IGxApplication)
gxCat=gxApp.Catalog
gxCat.Location="d:\tools"

IGxApplication gxApp=null;
IGxCatalog gxCat=null;
gxApp=Application as IGxApplication;
gxCat=gxApp.Catalog;
gxCat.Location="d:\\tools";

GxObject

• Name—Indicates the short name of the object including its extension if any.
• BaseName—Returns the name without the filename extension, if it has one.
• FullName—Returns a string identifying the fully qualified pathname of the object starting at the root level. This is not necessarily a path to a file on disk, since the object could exist within a database hierarchy. It is a fully qualified path in the context of ArcCatalog. It is comprised of the names of all its GxObject parents, each separated with the backslash ("\") character.

Dim gxApp As IGxApplication=TryCast(Application, IGxApplication)
Dim gxSel As IGxSelection
Dim enumGxObj As IEnumGxObject
Dim gxObj As IGxObject
gxSel=gxApp.Selection
enumGxObj=gxSel.SelectedObjects
gxObj=enumGxObj.Next
Do While Not gxObj Is Nothing
    Debug.Print(gxObj.Category)
    gxObj=enumGxObj.Next
Loop

IGxApplication gxApp=Application as IGxApplication;
IGxSelection gxSel=null;
IEnumGxObject enumGxObj=null;
IGxObject gxObj=null;
gxSel=gxApp.Selection;
enumGxObj=gxSel.SelectedObjects;
gxObj=enumGxObj.Next();
while (gxObj != null)
{
    Debug.Print(gxObj.Category);
    gxObj=enumGxObj.Next();
}

• Rename assigns a new short name to the object (if true is returned for the CanRename method).
• If true is returned for the CanDelete method, Delete physically deletes the object and its associated underlying data; ArcCatalog handles deleting the GxObject, but it is the object’s responsibility to delete all underlying and associated data that the object represents or wraps.
• CanCopy indicates if the object is a valid source for a copy operation; a return value of true enables the Copy command or menu item in ArcCatalog. However, to fully enable an object to participate in data transfer operations, you also need to implement the IGxObject.InternalObjectName property as described in the earlier discussion on data transfer.
• The EditProperties method opens a dialog box appropriate to the object that allows you to manipulate its internal properties and state. It's up to you as to what can and cannot be manipulated through this dialog box, but a good rule of thumb is the object's properties, not the data contained by the object, should appear here. For example, if the object is a table, this dialog box might show a list of the present columns and their data types, and permit editing of this information. However, the rows of data in the table would not be presented in this dialog box.

GxObjectContainer

Dim gxApp As IGxApplication=TryCast(Application, IGxApplication)
Dim gxSel As IGxSelection
Dim gxObj As IGxObject
gxSel=gxApp.Selection
gxObj=gxSel.Location

If TypeOf gxObj Is IGxObjectContainer Then
    Dim gxObjCont As IGxObjectContainer
    Dim gxEnum As IEnumGxObject
    Dim gxObject As IGxObject
    gxObjCont=TryCast(gxObj, IGxObjectContainer)
    gxEnum=gxObjCont.Children
    gxObject=gxEnum.Next
    Do While Not gxObject Is Nothing
        Debug.Print(gxObject.Category)
        gxObject=gxEnum.Next
    Loop
End If

IGxApplication gxApp=Application as IGxApplication;
IGxSelection gxSel=null;
IGxObject gxObj=null;
gxSel=gxApp.Selection;
gxObj=gxSel.Location;
if (gxObj is IGxObjectContainer)
{
    IGxObjectContainer gxObjCont=null;
    IEnumGxObject gxEnum=null;
    IGxObject gxObject=null;
    gxObjCont=gxObj as IGxObjectContainer;
    gxEnum=gxObjCont.Children;
    gxObject=gxEnum.Next();
    while (gxObject != null)
    {
        Debug.Print(gxObject.Category);
        gxObject=gxEnum.Next();
    }
}

GxObjectFilter

Dim basicFilter As IGxObjectFilter

Private Sub New()
    basicFilter=New GxFilterBasicTypes
End Sub

Private Function IGxObjectFilter_CanChooseObject(ByVal gxObject As IGxObject, ByVal result As _
                                                 esriDoubleClickResult) As Boolean
    Dim canChoose As Boolean
    canChoose=False
    If TypeOf gxObject Is IGxFile Then
        Dim ext As String
        ext=GetExtension(gxObject.Name)
        If LCase(ext)=".shd" Or LCase(ext)=".pal" Then canChoose=True
    End If
    IGxObjectFilter_CanChooseObject=canChoose
End Function

Private Function IGxObjectFilter_CanSaveObject(ByVal Location As _
                                               IGxObject, ByVal newObjectName As String, _
                                               ByVal objectAlreadyExists As Boolean) As Boolean
    
End Function

Private ReadOnly Property IGxObjectFilter_Name() As String
Get
IGxObjectFilter_Name="Custom filter"
End Get
End Property

Private ReadOnly Property IGxObjectFilter_Description() As String
Get
IGxObjectFilter_Description="Browses for .shd and .pal files."
End Get
End Property

Private Function IGxObjectFilter_CanDisplayObject(ByVal gxObject As IGxObject) As Boolean
    Dim canDisplay As Boolean
    canDisplay=False
    If basicFilter.CanDisplayObject(gxObject) Then
        canDisplay=True
    ElseIf TypeOf gxObject Is IGxFile Then
        Dim ext As String
        ext=GetExtension(gxObject.Name)
        If LCase(ext)=".shd" Or LCase(ext)=".pal" Then canDisplay=True
    End If
    IGxObjectFilter_CanDisplayObject=canDisplay
End Function

Private Function GetExtension(ByVal fileName As String) As String
    Dim extPos As Long
    extPos=InStrRev(fileName, ".")
    If extPos > 0 Then
        GetExtension=Mid(fileName, extPos)
    Else
        GetExtension=""
    End If
End Function

private IGxObjectFilter basicFilter;

private void NewFilter()
{
    basicFilter=new GxFilterBasicTypes();
}

private bool IGxObjectFilter_CanChooseObject(IGxObject gxObject,
    esriDoubleClickResult result)
{
    bool canChoose=false;
    canChoose=false;
    if (gxObject is IGxFile)
    {
        string ext=null;
        ext=GetExtension(gxObject.Name);
        if (ext.ToLower() == ".shd" | ext.ToLower() == ".pal")
        {
            canChoose=true;
        }
    }
    return canChoose;
}

private bool IGxObjectFilter_CanSaveObject(IGxObject Location, string newObjectName,
    bool objectAlreadyExists)
{
    return false;
}

private string IGxObjectFilter_Name
{
    get
    {
        return "Custom filter";
    }
}

private string IGxObjectFilter_Description
{
    get
    {
        return "Browses for .shd and .pal files.";
    }
}

private bool IGxObjectFilter_CanDisplayObject(IGxObject gxObject)
{
    bool canDisplay=false;
    canDisplay=false;
    if (basicFilter.CanDisplayObject(gxObject))
    {
        canDisplay=true;
    }
    else if (gxObject is IGxFile)
    {
        string ext=null;
        ext=GetExtension(gxObject.Name);
        if (ext.ToLower() == ".shd" | ext.ToLower() == ".pal")
        {
            canDisplay=true;
        }
    }
    return canDisplay;
}

private string GetExtension(string fileName)
{
    string tempGetExtension=null;
    long extPos=0;
    extPos=(fileName.LastIndexOf(".") + 1);
    if (extPos > 0)
    {
        tempGetExtension=fileName.Substring(extPos - 1);
    }
    else
    {
        tempGetExtension="";
    }
    return tempGetExtension;
}

Metadata import and export

For further information see: