代码出错，求助大家帮忙！

<P>求助！</P>
<P>我用arcengine和vb.net制作了一个界面，想任意的添加shape文件，但是却发现无论我打开的是哪个文件，最后显示的都是vegetaion.shp的那个文件，请问一下，我是哪里设置出错了呢？该怎么改呢？</P>
<P>        Dim shapeFileName As String = "vegetation.shp"<BR>        Dim shapeFilePath As String = "...\...\...\...\data"<BR>        Dim pWorkspaceFactory As IWorkspaceFactory<BR>        Dim pWorkspace As IWorkspace<BR>        Dim pFeatureWorkspace As IFeatureWorkspace<BR>        Dim pFeatureLayer As IFeatureLayer</P>
<P>        pWorkspaceFactory = New ShapefileWorkspaceFactory<BR>        pWorkspace = pWorkspaceFactory.OpenFromFile(shapeFilePath, 0)<BR>        pFeatureWorkspace = pWorkspace<BR>        Dim pFeatureClass As IFeatureClass<BR>        pFeatureClass = pFeatureWorkspace.OpenFeatureClass(shapeFileName)</P>
<P>        pFeatureLayer = New FeatureLayer<BR>        pFeatureLayer.FeatureClass = pFeatureClass<BR>        AxMapControl1.AddLayer(pFeatureLayer)</P>

我不用VB,不好意思

<P>   Dim shapeFileName As String<BR>   shapeFileName = "STATES.SHP"<BR>   Dim shapeFilePath As String<BR>   shapeFilePath = "E:\VB学习\MO课程设计\课程设计\USA "<BR>   Dim pWorkspaceFactory As IWorkspaceFactory<BR>   Dim pWorkspace As IWorkspace<BR>   Dim pFeatureWorkspace As IFeatureWorkspace<BR>   Dim pFeatureLayer As IFeatureLayer</P>
<P>   Set pWorkspaceFactory = New ShapefileWorkspaceFactory<BR>   Set pWorkspace = pWorkspaceFactory.OpenFromFile(shapeFilePath, 0)<BR>   Set pFeatureWorkspace = pWorkspace<BR>   Dim pFeatureClass As IFeatureClass<BR>   Set pFeatureClass = pFeatureWorkspace.OpenFeatureClass(shapeFileName)</P>
<P>   Set pFeatureLayer = New FeatureLayer<BR>   Set pFeatureLayer.FeatureClass = pFeatureClass<BR>   MapControl1.AddLayer pFeatureLayer</P>
<P>这是我用VB实现的，效果还可以</P>

Dim shapeFileName As String = "vegetation.shp"<BR>你要打开的就是这个vegetation.shp