Dim strConfigLoc As String

        strConfigLoc = Asm.Location

        Dim strTemp As String

        strTemp = strConfigLoc

        strTemp = strTemp.Remove(strTemp.LastIndexOf(“\”), Len(strTemp) – strTemp.LastIndexOf(“\”))

‘删除数据库文件和临时文件

        DeleteDIR(strTemp + “\TempDB”)

        DeleteDIR(“c:\TempDB”)

End Sub

Private Function DeleteDIR(ByVal path As String) As Boolean

‘删除指定的文件夹

上一页  [1] [2] [3] [4] [5] [6] [7] [8] [9] [10]  ...  下一页 >>