From 259565fb45a5801910a27e7ec72f00962852b663 Mon Sep 17 00:00:00 2001 From: IRBorisov <8611739+IRBorisov@users.noreply.github.com> Date: Tue, 18 Jun 2024 12:13:13 +0300 Subject: [PATCH] Fix update procedure --- VERSION | 2 +- src/MainImpl.bas | 6 +++--- src/z_UIMessages.bas | 4 ++-- 3 files changed, 6 insertions(+), 6 deletions(-) diff --git a/VERSION b/VERSION index 88c5fb8..347f583 100644 --- a/VERSION +++ b/VERSION @@ -1 +1 @@ -1.4.0 +1.4.1 diff --git a/src/MainImpl.bas b/src/MainImpl.bas index 8b437c2..ced1bb5 100644 --- a/src/MainImpl.bas +++ b/src/MainImpl.bas @@ -104,10 +104,10 @@ Public Function UpdateConceptPowershell() As Boolean Exit Function On Error GoTo RETURN_FALSE - Dim sExec$: sExec = "cmd.exe /c " & """" & sInstall & """" & " < nul" + Dim sExec$: sExec = "explorer.exe " & CP_TOOLS_SERVER Dim iShell As New WshShell - iShell.CurrentDirectory = CP_TOOLS_SERVER - UpdateConceptPowershell = iShell.Run(sExec, waitOnReturn:=True) = 0 + Call iShell.Run(sExec, waitOnReturn:=True) + UpdateConceptPowershell = True Exit Function RETURN_FALSE: diff --git a/src/z_UIMessages.bas b/src/z_UIMessages.bas index 5e157d8..62db394 100644 --- a/src/z_UIMessages.bas +++ b/src/z_UIMessages.bas @@ -58,11 +58,11 @@ Public Function UIShowMessage(theCode As MsgCode, ParamArray params() As Variant Case IM_LINKS_SCAN_OK: Call MsgBox(Fmt("Добавлено файлов: {1}/{2}", unwrapped), vbInformation) Case IM_LINKS_RELOCATE_OK: Call MsgBox(Fmt("Перемещено файлов: {1}/{2}", unwrapped), vbInformation) Case IM_LINKS_SERVER: Call MsgBox(Fmt("Исправлено гиперссылок: {1}/{2}", unwrapped), vbInformation) - Case IM_CONCEPT_UPDATE_OK: Call MsgBox("Офисные продукты КОНЦЕПТ обновлены успешно", vbInformation) + Case IM_CONCEPT_UPDATE_OK: Call MsgBox("Закройте приложения MS Office. Запустите файл install.bat в открытом окне для обновления", vbInformation) Case IM_WORD_ADDINS_OK: Call MsgBox("Обновление надстроек завершено", vbInformation) Case IM_TEMPLATES_OK: Call MsgBox("Обновление шаблонов завершено", vbInformation) Case IM_LINKS_COPY_OK: Call MsgBox(Fmt("Скопировано файлов: {1}/{2}", unwrapped), vbInformation) - Case IM_SEARCH_OK: Call MsgBox("Поиск завершен", vbInformation) + Case IM_SEARCH_OK: Call MsgBox("Поиск завершен", vbInformation) Case Else: Call MsgBox("Неверный код сообщения", vbCritical) End Select