创建DBF文件 并保存于C盘根目录下

<P>Public Function CreateTable(pFWS As esriCore.IFeatureWorkspace, _<BR>strName As String) As ITable</P>
<P>On Error GoTo EH<BR>If pFWS Is Nothing Then Exit Function<BR>Dim pField As IField<BR>Dim pFields As IFields<BR>Dim pFieldsEdit As IFieldsEdit<BR>Dim pFieldEdit As IFieldEdit</P>
<P>Set pFields = New Fields<BR>Set pFieldsEdit = pFields<BR>pFieldsEdit.FieldCount = 2</P>
<P>Set pField = New Field<BR>Set pFieldEdit = pField<BR>With pFieldEdit<BR>.Name = "OID"<BR>.AliasName = "FID"<BR>.Type = esriFieldTypeOID<BR>End With<BR>Set pFieldsEdit.Field(0) = pField</P>
<P>Set pField = New Field<BR>Set pFieldEdit = pField<BR>With pFieldEdit<BR>.Length = 30<BR>.Name = "OWner"<BR>.Type = esriFieldTypeString<BR>End With<BR>Set pFieldsEdit.Field(1) = pField</P>
<P>Set CreateTable = pFWS.CreateTable(strName, pFields, Nothing, Nothing, "")</P>
<P>Exit Function<BR>EH:<BR>MsgBox Err.Description, vbInformation, "createDatasetFeatureClass"<BR>End Function</P>

谢谢！