Код

Процедура	ДобавитьФайлыИзКаталога(СписокФайлов,знач сПутьПоика)//,знач сМаскаИмени)

        сМаскаИмени="*";

	Если  ФС.ФайлСуществует(сПутьПоика+"\.") = 0 Тогда
		Возврат // нет такого каталога
	КонецЕсли;

	сФайл = ФС.НайтиПервыйФайл(сПутьПоика+"\"+сМаскаИмени);
	Пока ПустоеЗначение(сФайл)=0 Цикл
		Если (сФайл<>".") и (сФайл<>"..") Тогда

//вот так = не хочет, что для каталогов, что для файлов - видает одно и то же = глюк ?????
//	                Если ФС.ФайлСуществует(сПутьПоика+"\"+сФайл+"\.") = 0 Тогда

//ето работает , но - см.комментарий ниже....
		        сАтрибутыФайла="";
		        ФС.АтрибутыФайла(сПутьПоика+"\"+сФайл,,сАтрибутыФайла);
                	  Если 0+Сред(сАтрибутыФайла,4,1)=0 Тогда
                                // simple filo
				СписокФайлов.ДобавитьЗначение(сПутьПоика+"\"+сФайл,сФайл);
			Иначе //каталог, recur
                               ДобавитьФайлыИзКаталога(СписокФайлов,знач сПутьПоика+"\"+сФайл)//,сМаскаИмени)
			КонецЕсли;
		КонецЕсли;
// ПРОБЛЕМА ЗДЕСЬ!!!!
// ФАЙЛІ ЛОВИТ ВСЕ,
// НО ЛОВИТ НЕ ВСЕ(!) КАТАЛОГИ А ТОЛЬКО ПЕРВИЙ ПОПАВШИЙСЯ !!!!
// ГЛЮК ПЛАТФОРМИ ? (27)
		сФайл = ФС.НайтиСледующийФайл();
	КонецЦикла;
КонецПроцедуры
 

Код

Процедура	ДобавитьФайлыИзКаталога(Скрипт,ФСО,СписокФайлов,знач сПутьПоика,знач сМаскаИмени)

	Если  ФСО.FolderExists(сПутьПоика) = 0 Тогда
		Возврат
	КонецЕсли;

	сФайл = ФС.НайтиПервыйФайл(сПутьПоика+"\"+сМаскаИмени);
	Пока ПустоеЗначение(сФайл)=0 Цикл
		Если (сФайл<>".") и (сФайл<>"..") Тогда
			сПолныйПуть = ФСО.GetAbsolutePathName(сПутьПоика+"\"+сФайл);
			Если ФСО.FolderExists(сПолныйПуть) = 0 Тогда
				СписокФайлов.ДобавитьЗначение(сПолныйПуть,сФайл);
			КонецЕсли;
		КонецЕсли;
		сФайл = ФС.НайтиСледующийФайл();
	КонецЦикла;

	dict = Скрипт.Eval("GetSubFolders("""+сПутьПоика+""")");
	for i=0 to dict.Count-1 do
		Subfolder = dict.Item(i);
		ДобавитьФайлыИзКаталога(Скрипт,ФСО,СписокФайлов,Subfolder.Path,сМаскаИмени)
	enddo;

КонецПроцедуры

Функция		глНайтиВсеФайлы(сПолныйПутьСМаскойФайлов) Экспорт
	перем ФСО,сПутьПоика,сМаскаИмени;
	Если пустоеЗначение(сПолныйПутьСМаскойФайлов)=1 Тогда
		Возврат глНайтиВсеФайлы(КаталогИБ()+"*")
	КонецЕсли;

	СписокФайлов = СоздатьОбъект("СписокЗначений");

	ФСО = CreateObject("Scripting.FileSystemObject");
	Если ФСО.FolderExists(сПолныйПутьСМаскойФайлов) = 0 Тогда
		сПутьПоика = ФСО.GetParentFolderName(сПолныйПутьСМаскойФайлов);
		сМаскаИмени = сред(сПолныйПутьСМаскойФайлов,СтрДлина(сПутьПоика)+1);
	Иначе
		сПутьПоика = сПолныйПутьСМаскойФайлов;
		сМаскаИмени = "*";
	КонецЕсли;
	Пока Лев(сМаскаИмени,1) = "\" Цикл
		сМаскаИмени = Сред(сМаскаИмени,2);
	КонецЦикла;
	Пока Прав(сПутьПоика,1) = "\" Цикл
		сПутьПоика = Сред(сПутьПоика,1,СтрДлина(сПутьПоика)-1);
	КонецЦикла;

	Скрипт = СоздатьОбъект("MSScriptControl.ScriptControl");
	Скрипт.Language = "vbscript";
	Скрипт.AddCode(
     "Function GetSubFolders(strPath)
     |      set dict = CreateObject(""Scripting.Dictionary"")
     |      set FSO = CreateObject(""Scripting.FileSystemObject"")
     |      set Subfolders = FSO.GetFolder(strPath).Subfolders
     |      i = 0
     |      For Each Subfolder In Subfolders
     |            dict.add i, Subfolder
     |            i = i + 1
     |      next
     |      set GetSubFolders = dict
     |End Function");

	ДобавитьФайлыИзКаталога(Скрипт,ФСО,СписокФайлов,сПутьПоика,сМаскаИмени);

	возврат СписокФайлов;
КонецФункции