Dim strTemp As String

        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

‘

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