Покритикуйте код

[andrilve]

Какой вариант более приемлем?
1ый

Код Выделить Развернуть


текКаталог = "\\tsclient\C\Documents and Settings\User\Мои документы\WM_Opniho"+СокрЛП(НомерТСД)+" My Documents";
Каталог = Новый Файл(текКаталог);
Если Не Каталог.Существует() Тогда
текКаталог = "\\tsclient\C\Documents and Settings\Mahova\Мои документы\WM_Mahova"+СокрЛП(НомерТСД)+" My Documents";
Каталог = Новый Файл(текКаталог);
Если Не Каталог.Существует() Тогда
текКаталог = "\\tsclient\C\Users\e.voronina\Documents\WM_Mahova"+СокрЛП(НомерТСД)+" My Documents";
Каталог = Новый Файл(текКаталог);
Если Не Каталог.Существует() Тогда
                    Предупреждение("Не обнаружен каталог обмена с ТСД!");
    Возврат;
КонецЕсли;
КонецЕсли;
КонецЕсли;


2ой

Код Выделить Развернуть


    МассивКаталогов = Новый Массив(4);
    МассивКаталогов[0] = "\\tsclient\C\Documents and Settings\User\Мои документы\WM_Opniho" + СокрЛП(НомерТСД) + " My Documents";
    МассивКаталогов[1] = "\\tsclient\C\Documents and Settings\Mahova\Мои документы\WM_Mahova" + СокрЛП(НомерТСД) + " My Documents";
    МассивКаталогов[2] = "\\tsclient\C\Users\e.voronina\Documents\WM_Mahova" + СокрЛП(НомерТСД) + " My Documents";
    МассивКаталогов[3] = "C:\Users\i.shipelova\Documents\Маршрутный лист\WM_Mahova" + СокрЛП(НомерТСД) + " My Documents";

    КаталогНеСущ = Истина;
    Для Каждого текКаталог Из МассивКаталогов Цикл
        Каталог = Новый Файл(текКаталог);
        Если Каталог.Существует() Тогда
    КаталогНеСущ = Ложь;
    Прервать;
        КонецЕсли;
    КонецЦикла;
    Если КаталогНеСущ Тогда
        Строка = "Не обнаружен каталог обмена с ТСД!";
        Оповещение = Новый ОписаниеОповещения("ПослеЗакрытияПредупреждение", ЭтотОбъект);
        ПоказатьПредупреждение(Оповещение, Строка, , );
    КонецЕсли;


[AIFrame]

Такой

Код Выделить Развернуть

Функция КаталогСуществует(Путь)
    Каталог = Новый Файл(Путь);
    Возврат Каталог.Существует();
КонецФункции

Функция ПолучитьКаталогДляРаботы(НомерТСД)
    МассивКаталогов = Новый Массив(4);
    МассивКаталогов[0] = "\\tsclient\C\Documents and Settings\User\Мои документы\WM_Opniho"        + СокрЛП(НомерТСД) + " My Documents";
    МассивКаталогов[1] = "\\tsclient\C\Documents and Settings\Mahova\Мои документы\WM_Mahova"    + СокрЛП(НомерТСД) + " My Documents";
    МассивКаталогов[2] = "\\tsclient\C\Users\e.voronina\Documents\WM_Mahova"            + СокрЛП(НомерТСД) + " My Documents";
    МассивКаталогов[3] = "C:\Users\i.shipelova\Documents\Маршрутный лист\WM_Mahova"            + СокрЛП(НомерТСД) + " My Documents"; 

    Для Каждого текКаталог Из МассивКаталогов Цикл
        Если КаталогСуществует(текКаталог) Тогда
            Возврат текКаталог;
        КонецЕсли;
    КонецЦикла; 
    Возврат неопределено;
КонецФункции

Процедура Сделать(НомерТСД)
    Каталог = ПолучитьКаталогДляРаботы(НомерТСД);
    Если НЕ ЗначениеЗаполнено(Каталог) Тогда
        Строка = "Не обнаружен каталог обмена с ТСД!";
        Оповещение = Новый ОписаниеОповещения("ПослеЗакрытияПредупреждение", ЭтотОбъект);
        ПоказатьПредупреждение(Оповещение, Строка, , );
        Возврат;
    КонецЕсли;

    // Продолжаем       
КонецПроцедуры

[andrilve]

Такой

Код Выделить Развернуть

Функция КаталогСуществует(Путь)
    Каталог = Новый Файл(Путь);
    Возврат Каталог.Существует();
КонецФункции

Функция ПолучитьКаталогДляРаботы(НомерТСД)
    МассивКаталогов = Новый Массив(4);
    МассивКаталогов[0] = "\\tsclient\C\Documents and Settings\User\Мои документы\WM_Opniho"        + СокрЛП(НомерТСД) + " My Documents";
    МассивКаталогов[1] = "\\tsclient\C\Documents and Settings\Mahova\Мои документы\WM_Mahova"    + СокрЛП(НомерТСД) + " My Documents";
    МассивКаталогов[2] = "\\tsclient\C\Users\e.voronina\Documents\WM_Mahova"            + СокрЛП(НомерТСД) + " My Documents";
    МассивКаталогов[3] = "C:\Users\i.shipelova\Documents\Маршрутный лист\WM_Mahova"            + СокрЛП(НомерТСД) + " My Documents"; 

    Для Каждого текКаталог Из МассивКаталогов Цикл
        Если КаталогСуществует(текКаталог) Тогда
            Возврат текКаталог;
        КонецЕсли;
    КонецЦикла; 
    Возврат неопределено;
КонецФункции

Процедура Сделать(НомерТСД)
    Каталог = ПолучитьКаталогДляРаботы(НомерТСД);
    Если НЕ ЗначениеЗаполнено(Каталог) Тогда
        Строка = "Не обнаружен каталог обмена с ТСД!";
        Оповещение = Новый ОписаниеОповещения("ПослеЗакрытияПредупреждение", ЭтотОбъект);
        ПоказатьПредупреждение(Оповещение, Строка, , );
        Возврат;
    КонецЕсли;

    // Продолжаем       
КонецПроцедуры

Спасибо, всё очень лаконично