抛砖引玉：物理删除dbf（foxpro)纪录·····

Question

'------------------------------------------------------
'¹¦ÄÜ:ÎïÀíɾ³ýDBFÖеļͼ
'ÈÕÆÚ:03/06/09 17:00
'²ÎÊý:DBF_Name dbfÎļþÃû£¬ DBF_Path dbf  Îļþ´æ·Å·¾¶
'ȱµã:´øÀ´ MDB ÎļþµÄÔö´ó£¬ÒªÑ¹Ëõ£¬×îºÃ
'------------------------------------------------------
Sub PackDBF(DBF_Name As String, DBF_Path As String)
    On Error Resume Next
    Dim sqlString As String, sqlString1 As String, T_str As String
    Screen.MousePointer = 11
    OpenMdb
    sqlString = "SELECT * INTO [" & DBF_Name & "]  FROM [FoxPro 2.5;DATABASE=" & DBF_Path & "].[" & DBF_Name & "]"
    g_Tempdata.Execute sqlString
    If Err = 3010 Then
       sqlString1 = "drop table " & DBF_Name
       g_Tempdata.Execute sqlString1
       g_Tempdata.Execute sqlString
       Err = 0
    End If
    sqlString = "select * into [FoxPro 2.5;database=" & DBF_Path & "]." & DBF_Name & " from " & DBF_Name
    g_Tempdata.Execute sqlString
    If Err = 3010 Then
       CloseDbf
       Fso.DeleteFile pMndDatePath & "\" & DBF_Name & ".dbf", True
       Fso.DeleteFile pMndDatePath & "\" & DBF_Name & ".cdx", True
       g_Tempdata.Execute sqlString
    End If
    g_Tempdata.Execute sqlString1
    CloseMdb
    Screen.MousePointer = 0
End Sub

Answer 1

此方法实属无奈，征求更好Pack方法！上面乱码的注释：
利用导入DBF文件到Access时会物理删除纪录的功能
OpenMdb   '打开Access一临时数据库DBF_Name 入口dbf名称, pMndDatePath 、DBF_Path 入口dbf路径