Imports ESRI.ArcGIS.Geodatabase Imports ESRI.ArcGIS.Carto Imports ESRI.ArcGIS.esriSystem Imports System.Windows.Forms Imports ESRI.ArcGIS.Geoprocessing Imports ESRI.ArcGIS.Geoprocessor Public Sub test() Dim gp As New ESRI.ArcGIS.Geoprocessor.Geoprocessor gp.SetEnvironmentValue("workspace", "G:\Data\GDB\Production.gdb") Dim fcs As ESRI.ArcGIS.Geoprocessing.IGpEnumList = gp.ListFeatureClasses("*", "", "") Dim fc As String = fcs.Next() Do While fc <> "" fc = fc + vbNewLine + fcs.Next() Loop MsgBox(fc) End Sub
Do While fc <> "" Console.WriteLine(fc) fc = fcs.Next() Loop