如何在mo中把.shp、.dbf、.shx文件一起删除

<P>在mo编程中，想删除shape文件，但只能删除.shx，而.shp和.dbf文件却不能删除，而系统没有任何提示，请指教。代吗如下：</P>
<P>Dim Index As Long
  Index = legMapDisp.getActiveLayer
  If Index <> -1 Then
    str1 = mapDisp.Layers(Index).Name
    mapDisp.Layers(Index).Records.StopEditing
    mapDisp.Layers.Remove Index
    
    str2 = frmMain.vewpath ; "\themefile\" ; str1 ; ".shp"
    If fp10.FileExists(str2) Then fp10.DeleteFile str2, True
    str2 = frmMain.vewpath ; "\themefile\" ; str1 ; ".dbf"
    If fp10.FileExists(str2) Then fp10.DeleteFile str2, True
    str2 = frmMain.vewpath ; "\themefile\" ; str1 ; ".shx"
    If fp10.FileExists(str2) Then fp10.DeleteFile str2, True
    Me.tag = "cancle"
    legMapDisp.LoadLegend  'Refresh legend
    
    viewupdat = True
   Else
    MsgBox "这个图层不是活动图层.", vbCritical, "停止"
    Exit Sub
  End If</P>

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

<P>为什么没人回答呀？</P><P><img src="images/post/smile/dvbbs/em39.gif" /><img src="images/post/smile/dvbbs/em12.gif" /><img src="images/post/smile/dvbbs/em01.gif" /></P>

   把控件中的图层remove掉以后还要把图层占用内存清空

<P>请问楼上如何清空啊</P>

<P>能否把清空内存说的更清楚些!!!</P><img src="images/post/smile/dvbbs/em02.gif" /><img src="images/post/smile/dvbbs/em05.gif" /><img src="images/post/smile/dvbbs/em12.gif" /><img src="images/post/smile/dvbbs/em38.gif" />

<P>图层资源没有释放，至于原因应该看你的程序哪里还用到了地图的资源比如直接操作dbf文件的地方没有释放数据库连接等。如果资源完全释放应该是可以删除成功的。</P>

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