Solved! Go to Solution.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim gxdial As IGxDialog = New GxDialog Dim gxobjfilter As IGxObjectFilter = New GxFilterDatasets gxdial.ObjectFilter = gxobjfilter Dim gxEnum As IEnumGxObject = Nothing If Not gxdial.DoModalOpen(0, gxEnum) Then Exit Sub End If gxdial.RememberLocation = True Me.txtOutputPath.Text = gxdial.FinalLocation.FullName End Sub