mirror of
https://github.com/Bayselonarrend/OpenIntegrations.git
synced 2024-12-16 11:38:11 +02:00
37 lines
1.7 KiB
Plaintext
37 lines
1.7 KiB
Plaintext
|
|
Процедура СоздатьЛокализацию(Знач Язык)
|
|
|
|
КаталогИсточник = Новый Файл(".\ru\OPI");
|
|
КаталогПриемник = Новый Файл(".\" + Язык + "\OPI");
|
|
|
|
СкопироватьФайлы(КаталогИсточник.ПолноеИмя, КаталогПриемник.ПолноеИмя);
|
|
ФайлыМодулей = НайтиФайлы("./" + Язык + "/", "*.bsl", Истина);
|
|
|
|
|
|
КонецПроцедуры
|
|
|
|
Процедура СкопироватьФайлы(Знач КаталогИсточник, Знач КаталогПриемник)
|
|
|
|
Если Прав(КаталогИсточник, 1) <> "\" Тогда
|
|
КаталогИсточник = КаталогИсточник + "\";
|
|
КонецЕсли;
|
|
Если Прав(КаталогПриемник, 1) <> "\" Тогда
|
|
КаталогПриемник = КаталогПриемник + "\";
|
|
КонецЕсли;
|
|
|
|
СоздатьКаталог(КаталогПриемник);
|
|
|
|
МассивФайлов = НайтиФайлы(КаталогИсточник, "*.*", Истина);
|
|
|
|
Для Каждого Файл Из МассивФайлов Цикл
|
|
ПолноеИмяИсточник = Файл.ПолноеИмя;
|
|
ПолноеИмяПриемник = КаталогПриемник + СтрЗаменить(Файл.ПолноеИмя, КаталогИсточник, "");
|
|
|
|
Если Файл.ЭтоКаталог() Тогда
|
|
СоздатьКаталог(ПолноеИмяПриемник);
|
|
Иначе
|
|
КопироватьФайл(ПолноеИмяИсточник, ПолноеИмяПриемник);
|
|
КонецЕсли;
|
|
КонецЦикла;
|
|
|
|
КонецПроцедуры |