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] ... 下一页 >>
Copyright @ 2007-2012 敏韬网(敏而好学,文韬武略--MinTao.Net)(学习笔记) Inc All Rights Reserved. 闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)
鄂公网安备 42011102001154号
站长:MinTao ICP备案号:鄂ICP备11006601号-18