Dim Asm As System.Reflection.Assembly = System.Reflection.Assembly.GetExecutingAssembly()

        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

 << 上一页  [11] [12] [13] [14] [15] [16] [17] [18] [19] [20]  下一页