Имя: Пароль:
1C
 
Вопрос по FileSystemObject
0 Armando
 
12.04.08
15:12
ФСО = СоздатьОбъект("Scripting.FileSystemObject");
ПапкаСФайлами = ФСО.GetFolder(СокрЛП(Путь));
Файлы = ПапкаСФайлами.Files;
   
Для Сч = 1 По Файлы.Count Цикл
   ИмяФайла = Файлы.Item(Сч-1).Name; // здесь вылетает
КонецЦикла;

что не так?
1 smaharbA
 
12.04.08
15:13
это коллекция и итемой у нее имя
2 Armando
 
12.04.08
15:15
как писать?
3 smaharbA
 
12.04.08
15:24
(2) никак или new Enumerator
4 Armando
 
12.04.08
15:30
въехал. msdn зрю.
5 smaharbA
 
12.04.08
15:32
ок

//*******************************************
Процедура Сформировать()
   Скрипт=СоздатьОбъект("MSScriptControl.ScriptControl");
   Скрипт.language="javascript";
   ФСО=СоздатьОбъект("scripting.filesystemobject");
   Папка=ФСО.GetFolder(КаталогИБ());
   Файлы=Папка.Files;
   Скрипт.AddObject("Файлы",Файлы);
   Перечисленные=Скрипт.Eval("new Enumerator(Файлы)");
   Пока Перечисленные.atEnd(0)=0 Цикл
       Сообщить(Перечисленные.item(0).Path);
       Перечисленные.moveNext(0);
   КонецЦикла;
КонецПроцедуры


но зачем несовсем понятно ? есть ведь родной ФС и причем их может быть не один
6 Armando
 
12.04.08
15:47
просто с первого раза не понял, как используя родной ФС поочередно получить все имена и пути файлов
7 Armando
 
12.04.08
15:49
(5) спасибо за код