Во первых, нужно убедиться , что каталог содержит имя каталога и завершается символом "\".
Во вторых, вместо "*.*" нужно сразу искать Сокрлп(Мх.Код)+"_*.". Тогда при условии, что код склада уникальный - Вы сразу найдете нужный каталог.
Ф=ФС.НайтиПервыйФайл(СокрЛП(Каталог)+МХ.код+"*.");
Пока Ф<>"" Цикл
Если (Ф<>".")И(Ф<>"..") Тогда
ФС.АтрибутыФайла(СокрЛП(Каталог)+Ф,,А);
Если Сред(А,4,1)="1" Тогда
Сообщить(Ф);
КонецЕсли;
КонецЕсли;
Ф=ФС.НайтиСледующийФайл();
КонецЦикла
Вот так работает. (1) спасибо
Компьютеры — это как велосипед. Только для нашего сознания. Стив Джобс