Dim pEnumGXObject As IEnumGxObject = Nothing Dim pGXDialog As IGxDialog pGXDialog = New GxDialogClass Dim pGxObjectFilter As IGxObjectFilter pGxObjectFilter = New GxFilterPolylineFeatureClasses With pGXDialog .ObjectFilter = pGxObjectFilter .Title = "Set name of merged functional network" .RememberLocation = True .AllowMultiSelect = False .ButtonCaption = "OK" .DoModalSave(Me.Handle.ToInt32) End With Dim pGXObject As IGxObject pGXObject = pGXDialog.FinalLocation Dim s, fp As String s = pGXDialog.Name If Microsoft.VisualBasic.LCase(Microsoft.VisualBasic.Right(s, 4)) <> ".shp" Then s = s & ".shp" End If fp = pGXObject.FullName & "\" & s
Here is some code that gets you the full path to a shapefile that you intend to create:Dim pEnumGXObject As IEnumGxObject = Nothing Dim pGXDialog As IGxDialog pGXDialog = New GxDialogClass Dim pGxObjectFilter As IGxObjectFilter pGxObjectFilter = New GxFilterPolylineFeatureClasses With pGXDialog .ObjectFilter = pGxObjectFilter .Title = "Set name of merged functional network" .RememberLocation = True .AllowMultiSelect = False .ButtonCaption = "OK" .DoModalSave(Me.Handle.ToInt32) End With Dim pGXObject As IGxObject pGXObject = pGXDialog.FinalLocation Dim s, fp As String s = pGXDialog.Name If Microsoft.VisualBasic.LCase(Microsoft.VisualBasic.Right(s, 4)) <> ".shp" Then s = s & ".shp" End If fp = pGXObject.FullName & "\" & s