ArcGIS VBA 打开文件对话框 OpenFileDialog

示例：

Private Sub CommandButton2_Click()

    Dim pGxdial As IGxDialog
    Set pGxdial = New GxDialog
    pGxdial.ButtonCaption = "保存"
    pGxdial.Title = "打开"
    pGxdial.RememberLocation = True
    
    Dim pGxFilter As IGxObjectFilter
    Set pGxFilter = New GxFilterFiles
    Set pGxdial.ObjectFilter = pGxFilter
    
    Dim pgxobj As IEnumGxObject
    'pGxdial.DoModalOpen ThisDocument.Parent.hWnd, pgxobj
    'pgxobj.Reset
    If pGxdial.DoModalOpen(0, pgxobj) Then
        pgxobj.Reset
        path.Text = pgxobj.Next.FullName
    Else
        Exit Sub
    End If
End Sub