Книга: Windows Script Host для Windows 2000/XP

Цикл For Each…Next

Цикл For Each…Next

Оператор цикла For Each…Next предназначен для перебора всех элементов массива или коллекции:

For Each element In group
тело цикла
 [Exit For]
 тело цикла
Next [element]

Здесь параметр element является переменной, в которую будет записываться значение текущего элемента массива или коллекции при итерациях; group — имя массива или коллекции объектов.

С помощью оператора Exit For можно осуществить немедленный выход из цикла.

Пример использования цикла For Each…Next приведен в листинге П2.2.

'Объявляем переменные
Dim FSO, Folder, Files, File, s
s = "Список файлов" & vbCrLf
'Создаем объект FileSystemObject
Set FSO = CreateObject("Scripting.FileSystemObject")
' Создаем объект Folder для корневого каталога диска С:
Set Folder = FSO.GetFolder("C:")
'Создаем коллекцию Files всех файлов в корневом каталоге диска С:
Set Files = Folder.Files
'Перебираем все элементы коллекции Files
For Each File In Files
 'Выделяем имя файла для текущего элемента File коллекции
 s = s & File.Name & vbCrLf
Next
'Выводим сформированную строку на экран
WScript.Echo s

Оглавление книги