How to export personal geodatabase feature class to shapefile?

<TABLE>

<TR>
<TD class=postvalue>
<P><br><br></P></TD></TR>
<TR>
<TH></TH>
<TD><PRE><P ><FONT face="Times New Roman">Here's am example that may be alittle easier to undestand what is going on. All you need to do is pass in the featureclass you want to export, and the output workspace (the folder you want to export to): <p></p></FONT></P><P ><FONT face="Times New Roman">Dim pWorkspaceFactory As IWorkspaceFactory <p></p></FONT></P><P ><FONT face="Times New Roman">Set pWorkspaceFactory = New ShapefileWorkspaceFactory <p></p></FONT></P><P ><FONT face="Times New Roman">Dim pWorkspace As IWorkspace <p></p></FONT></P><P ><FONT face="Times New Roman">Set pWorkspace = pWorkspaceFactory.OpenFromFile("C:\Temp\", 0) <p></p></FONT></P></PRE><PRE>Sub ExportShapefile(pInFeatureClass As IFeatureClass, pOutWorkspace As IWorkspace)<br><br>    Dim pInDataset As IDataset<br>    Set pInDataset = pInFeatureClass<br>    <br>    Dim pInFCName As IFeatureClassName<br>    Set pInFCName = pInDataset.FullName<br>    <br>    Dim pInWorkspace As IWorkspace<br>    Set pInWorkspace = pInDataset.Workspace<br>    <br>    Dim pOutDataset As IDataset<br>    Set pOutDataset = pOutWorkspace<br>    <br>    Dim pOutWorkspaceName As IWorkspaceName<br>    Set pOutWorkspaceName = pOutDataset.FullName<br><br>    Dim pOutFCName As IFeatureClassName<br>    Set pOutFCName = New FeatureClassName<br>    <br>    Dim pDatasetName As IDatasetName<br>    Set pDatasetName = pOutFCName<br>    Set pDatasetName.WorkspaceName = pOutWorkspaceName<br>        pDatasetName.Name = pInFeatureClass.AliasName<br>        <br>    Dim pFieldChecker As IFieldChecker<br>    Set pFieldChecker = New FieldChecker<br>        pFieldChecker.InputWorkspace = pInWorkspace<br>    Set pFieldChecker.ValidateWorkspace = pOutWorkspace<br>        <br>    Dim pFields As IFields<br>    Set pFields = pInFeatureClass.fields<br>    <br>    Dim pOutFields As IFields<br>    Dim pEnumFieldError As IEnumFieldError<br>        pFieldChecker.Validate pFields, pEnumFieldError, pOutFields<br>        <br>    Dim pFeatureDataConverter As IFeatureDataConverter<br>    Set pFeatureDataConverter = New FeatureDataConverter<br>        pFeatureDataConverter.ConvertFeatureClass pInFCName, Nothing, Nothing, pOutFCName, Nothing, pOutFields, "", 100, 0<br>        <br>    <br><br>End Sub</PRE></TD></TR></TABLE>

<img src="images/post/smile/dvbbs/em01.gif" />