| Exit Sub Else End If ‘删除数据库临时文件 DeleteDIR(“c:\TempDB”) DeleteDIR(strTemp + “\TempDB”) End Sub Public Overrides Sub Uninstall(ByVal stateSaver As System.Collections.Idictionary) ‘执行反安装 ‘利用反射提取安装路径 MyBase.Uninstall(stateSaver) Dim Asm As System.Reflection.Assembly = System.Reflection.Assembly.GetExecutingAssembly() 上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] ... 下一页 >> |