как перебрать все элементы коллекции значений в 1с 7.7?

В 7.7 есть коллекции значений?

(0) Здесь вам не тут ...

(0) Весело. Раньше с 7.7 на 8 переходили - офигевали, теперь обратно - тоже офигевают...

список значений - смотрим ЖКК - перебор по номеру

FSO=СоздатьОбъект("Scripting.FileSystemObject");
Folder=FSO.GetFolder("C:\");
Folder.SubFolders - коллекция, которая обходится For Each

Как в 7.7??

мды, телепат ни у кого не сработал...

ыыы так это восьмерка, а уж подумалось, что ...(не важно что подумалось = это не правда) )))

Массив
Список значений
Таблица значений
Структура
Соответствие
(0)
Что те перебрать-то нужно, формулирующий наш?

перебрать нужно поддиректории

(5) Замени вопрос: как наложить фильтр на массив значений и выбрать отфильтрованное. может кто и начнет чонить понимать... я по-ка не очень понимаю.

Вот метод:
SubFolders
Возвращаемое значение:
Объект-коллекция "Folders", содержащая все подкаталоги данного каталога, включая скрытые и системные.
Как мне обойти (перебрать значения) этой коллекции в 1с 7.7

(10) типа
Для Сч=1 ПО SubFolders.Count Цикл
???

а дальше??

(8) а прошлой ветки ссылку не осилил?...ну скопипастю

Перем Каталог;
Процедура СканироватьКаталог(Каталог)
Перем А;
    ФСО=СоздатьОбъект("ФС");
    Ф=ФСО.НайтиПервыйФайл(Каталог+"*");
    Пока Ф<>"" Цикл
         Если (Ф<>".")И(Ф<>"..") Тогда
              ФС.АтрибутыФайла(Каталог+Ф,,А);
              Если Сред(А,4,1)="1" Тогда СканироватьКаталог(Каталог+Ф+"\") КонецЕсли;
         КонецЕсли;
         Сообщить(Каталог+Ф);
         Ф=ФСО.НайтиСледующийФайл();
    КонецЦикла;
КонецПроцедуры

Процедура Сформировать()
Каталог="C:\";
СканироватьКаталог(Каталог);
КонецПроцедуры

(12) что дальше? я не знаю чего тебе надо дальше...
получай SubFolder.Item[Сч] - типа так, и делай что хошь

эта шляпа не подходит, слишком долго работает, если в папке много файлов + почему-то в выборку попадают файлы

(15) здииишь, но подправлю, чтобы только директории и тмп-шки от директорий(а такие тоже есть) попадали:

//*******************************************
Перем Каталог,Час,Минут,Сукунд;
Процедура СканироватьКаталог(Каталог)
Перем Атр,Размер;
    ФСО=СоздатьОбъект("ФС");
СписокКат=СоздатьОбъект("СписокЗначений");    
    Ф=ФСО.НайтиПервыйФайл(Каталог+"*");
    Пока Ф<>"" Цикл
         Если (Ф<>".")И(Ф<>"..") Тогда
              ФС.АтрибутыФайла(Каталог+Ф,,Атр);
              //четвертый символ: если ''1'' - каталог;
              Если (Сред(Атр,4,1)="1") Тогда
              //Сообщить(Каталог+Ф);
              СписокКат.ДобавитьЗначение(Каталог+Ф);
              СканироватьКаталог(Каталог+Ф+"\")
              КонецЕсли;
         КонецЕсли;
         Ф=ФСО.НайтиСледующийФайл();
    КонецЦикла;
КонецПроцедуры

Процедура Сформировать()
ТекВремя=ТекущееВремя(Час,Минут,Сукунд);
Сообщить("Начало "+ТекВремя);
Каталог="C:\";
СканироватьКаталог(Каталог);
ТекВремя=ТекущееВремя(Час,Минут,Сукунд);
Сообщить("Окончание "+ТекВремя);
КонецПроцедуры


///  весь диск С 12 ГБ
Начало 12:59:43
Окончание 12:59:52

слишком долго?

+(16) На Сообщить() одинэсина много времени тратит.

(10) А IFolderCollection.Count и IFolderCollection.Item - уже отменили?

(0)Это ж такое можно спросить после страшного бодуна.
Клоун-то где?

Огромное всем спасибо... видимо немного переработал