|
490 | 490 | КонецЕсли; |
491 | 491 |
|
492 | 492 | МассивКаталогов1С = Новый Массив; |
| 493 | + |
| 494 | + МассивФайлов = Новый Массив; |
493 | 495 | Для Каждого ВозможныйПуть Из КаталогиУстановкиПлатформы Цикл |
494 | 496 |
|
495 | 497 | Лог.Отладка("Выполняю попытку поиска версии в каталоге " + ВозможныйПуть); |
496 | 498 |
|
497 | | - МассивФайлов = НайтиФайлы(ВозможныйПуть, ВерсияПлатформы+"*"); |
| 499 | + РезультатПоиска = НайтиФайлы(ВозможныйПуть, ВерсияПлатформы+"*"); |
| 500 | + //Если в данном каталоге установки платформы нет каталого с искомой версией не делать ничего, перейти к следующему возможному пути |
| 501 | + //Если есть каталоги с искомой версией тогда добавить их в общий массив результатов поиска |
| 502 | + Если НЕ РезультатПоиска.Количество() Тогда |
| 503 | + Продолжить; |
| 504 | + Иначе |
| 505 | + |
| 506 | + Для Каждого Каталог ИЗ РезультатПоиска Цикл |
| 507 | + МассивФайлов.Добавить(Каталог); |
| 508 | + КонецЦикла; |
| 509 | + //Зафиксировать возможный путь, как подтвержденный путь где есть версии по заданной маске. |
| 510 | + ПодтвержденныйПуть = ВозможныйПуть; |
| 511 | + КонецЕсли; |
| 512 | + |
498 | 513 | Если МассивФайлов.Количество() = 0 Тогда |
499 | 514 | Лог.Отладка("Не найдено ни одного каталога с версией."); |
| 515 | + |
500 | 516 | Продолжить; |
501 | 517 | КонецЕсли; |
502 | 518 | Если МассивКаталогов1С = Неопределено Тогда |
|
522 | 538 | Если ИменаВерсий.Количество() > 0 Тогда |
523 | 539 | МаксВерсия = ИменаВерсий[0]; |
524 | 540 | Для Сч = 1 По ИменаВерсий.Количество()-1 Цикл |
525 | | - Если МаксВерсия < ИменаВерсий[Сч] Тогда |
| 541 | + //Прежде чем проверять версию на максимум проверить ее на наличие исполняемого файла толстого клиента 1cv8.exe |
| 542 | + НужныйПуть = Новый Файл(ОбъединитьПути(ПодтвержденныйПуть, ИменаВерсий[Сч], "bin\1cv8.exe")); |
| 543 | + Если НужныйПуть.Существует() И МаксВерсия < ИменаВерсий[Сч] Тогда |
526 | 544 | МаксВерсия = ИменаВерсий[Сч]; |
527 | 545 | КонецЕсли; |
528 | 546 | КонецЦикла; |
529 | 547 |
|
530 | | - НужныйПуть = Новый Файл(ОбъединитьПути(ВозможныйПуть, МаксВерсия, "bin\1cv8.exe")); |
| 548 | + НужныйПуть = Новый Файл(ОбъединитьПути(ПодтвержденныйПуть, МаксВерсия, "bin\1cv8.exe")); |
531 | 549 | Лог.Отладка("Версия найдена: " + НужныйПуть.ПолноеИмя); |
532 | 550 | КонецЕсли; |
533 | 551 |
|
|
0 commit comments