From a9ba1f4924fc92bf19852ac229ec9e4d83b2fcb6 Mon Sep 17 00:00:00 2001 From: Anton Date: Sat, 1 Jun 2024 17:09:42 +0300 Subject: [PATCH] Update opi_translate.os --- .github/workflows/os/opi_translate.os | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/.github/workflows/os/opi_translate.os b/.github/workflows/os/opi_translate.os index ab806d80f6..ad8106a1f3 100644 --- a/.github/workflows/os/opi_translate.os +++ b/.github/workflows/os/opi_translate.os @@ -183,13 +183,11 @@ Процедура СкопироватьФайлы(Знач КаталогИсточник, Знач КаталогПриемник) - Если Прав(КаталогИсточник, 1) <> "\" Тогда - КаталогИсточник = КаталогИсточник + "\"; - КонецЕсли; - Если Прав(КаталогПриемник, 1) <> "\" Тогда - КаталогПриемник = КаталогПриемник + "\"; - КонецЕсли; + Сообщить("Каталог источник: " + КаталогИсточник); + Сообщить("Каталог приемника: " + КаталогПриемник); + + Сообщить("Создание каталога " + КаталогПриемник); СоздатьКаталог(КаталогПриемник); МассивФайлов = НайтиФайлы(КаталогИсточник, "*.*", Истина); @@ -204,8 +202,10 @@ Если Файл.ЭтоКаталог() Тогда СоздатьКаталог(ПолноеИмяПриемник); + Сообщить("Создание каталога " + ПолноеИмяПриемник); Иначе КопироватьФайл(ПолноеИмяИсточник, ПолноеИмяПриемник); + Сообщить("Копирование файла" + ПолноеИмяИсточник + " в " + ПолноеИмяПриемник); КонецЕсли; КонецЦикла; @@ -227,4 +227,4 @@ КонецПроцедуры -ПриСозданииОбъекта(); \ No newline at end of file +//ПриСозданииОбъекта(); \ No newline at end of file