Асинхронность в цикле

&НаКлиенте
Процедура ПолучитьУникальноеИмяСПутемАсихронноЗавершение(ФайлСуществует,ДополнительныеПараметры) Экспорт
    Если ФайлСуществует Тогда
        ДополнительныеПараметры.Счетчик=ДополнительныеПараметры.Счетчик+1;
        Если ДополнительныеПараметры.Счетчик>100 Тогда
            ВыполнитьОбработкуОповещения(ДополнительныеПараметры.ОповещениеОЗавершении,Неопределено);
            Возврат;
        КонецЕсли;
        
        Оповещение=Новый ОписаниеОповещения("ПолучитьУникальноеИмяСПутемАсихронноЗавершение",ЭтотОбъект,ДополнительныеПараметры);
        ИмяФайла=СтрЗаменить(ДополнительныеПараметры.ШаблонИмениФайла,"$",Формат(ДополнительныеПараметры.Счетчик,"ЧГ="));
        ДополнительныеПараметры.Вставить("ИмяФайла",ИмяФайла);
        Файл=Новый Файл(ИмяФайла);
        Файл.НачатьПроверкуСуществования(Оповещение);
        Возврат;
    КонецЕсли;
    ВыполнитьОбработкуОповещения(ДополнительныеПараметры.ОповещениеОЗавершении,ДополнительныеПараметры.ИмяФайла);
КонецПроцедуры

&НаКлиенте
Процедура ПолучитьУникальноеИмяСПутемАсихронно(ИмяФайла,ОповещениеОЗавершении)
    Файл=Новый Файл(ИмяФайла);
    ДополнительныеПараметры=Новый Структура();
    ДополнительныеПараметры.Вставить("ОповещениеОЗавершении",ОповещениеОЗавершении);
    ДополнительныеПараметры.Вставить("Счетчик",0);
    ДополнительныеПараметры.Вставить("ШаблонИмениФайла",Файл.Путь+"\"+Файл.ИмяБезРасширения+"_$"+Файл.Расширение);
    ПолучитьУникальноеИмяСПутемАсихронноЗавершение(Истина,ДополнительныеПараметры);
КонецПроцедуры

&НаКлиенте
Процедура Команда1Завершение(ИмяФайла,ЧтоМыПередаемВТочкуВыхода) Экспорт
    // Точка выхода

    Если ИмяФайла<>Неопределено Тогда
        Сообщить(ИмяФайла);
    КонецЕсли;
КонецПроцедуры


&НаКлиенте
Процедура Команда1(Команда)
    // Точка входа

    ЧтоМыПередаемВТочкуВыхода=Новый Структура;
    ОповещениеОЗавершении=Новый ОписаниеОповещения("Команда1Завершение",ЭтотОбъект,ЧтоМыПередаемВТочкуВыхода);
    ПолучитьУникальноеИмяСПутемАсихронно("c:\tmp\test.txt",ОповещениеОЗавершении);
КонецПроцедуры

#Если Не ВебКлиент Тогда

    // ТекущаяДата() используется только для генерации случайного числа,

    // поэтому приведение к ТекущаяДатаСеанса не требуется.

    ГенераторСлучая = Новый ГенераторСлучайныхЧисел(Секунда(ТекущаяДата()));
#КонецЕсли

    
    Пока НЕ Успешно И ЦиклНомер < 100 Цикл
        НомерКаталога = 0;
#Если Не ВебКлиент Тогда

        НомерКаталога = ГенераторСлучая.СлучайноеЧисло(0, 25);
#Иначе

        // ТекущаяДата() используется только для генерации случайного числа,

        // поэтому приведение к ТекущаяДатаСеанса не требуется.

        НомерКаталога = Секунда(ТекущаяДата()) % 26;
#КонецЕсли

&НаКлиенте
Процедура ПолучитьМассивДисковКомпьютераЗавершение(Существует, ДополнительныеПараметры) Экспорт
    
    Номер = ДополнительныеПараметры.Номер;
    Файл  = ДополнительныеПараметры.Файл;
    Поз   = ДополнительныеПараметры.Поз;
    
    Если Существует Тогда
        НовыйЭлемент = ДеревоПапок.ПолучитьЭлементы().Добавить();
        НовыйЭлемент.Папка = Файл.ПолноеИмя;
        НовыйЭлемент.ЭтоПапка = Истина;
        НовыйЭлемент.ДочерниеЗагружены = Ложь;
        НовыйЭлемент.ПолучитьЭлементы().Добавить();
        Элементы.ДеревоПапок.Обновить();
    КонецЕсли;
    
    Если Номер < НачальныйСписокКорневыхПапок.Количество() - 1 Тогда
        Номер = Номер + 1;
        Файл = Новый Файл(НачальныйСписокКорневыхПапок[Номер].Значение);
        Файл.НачатьПроверкуСуществования(Новый ОписаниеОповещения("ПолучитьМассивДисковКомпьютераЗавершение", ЭтаФорма, Новый Структура("Файл, Номер, Поз", Файл, Номер, Поз)));
    КонецЕсли;    
    
КонецПроцедуры

И важно понимать, что ПолучитьФайлССервера -> ПолучитьФайлССервераАсинх это здоровая тенденция
А ПоказатьВопрос -> ВопросАсинх -  это срамной костыль ;)