strTemp = strConfigLoc

''''提取安装路径

        strTemp = strTemp.Remove(strTemp.LastIndexOf("\"), Len(strTemp) - strTemp.LastIndexOf("\"))

        ''''Copy  DateBase to computer.

        If CreatDIR(strTemp) = False Then

''''失败，反安装

Me.Uninstall(stateSaver)

Exit Sub

        Else

        End If

        If InstallDB(strTemp) = False Then

‘失败，反安装

Me.Uninstall(stateSaver)

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