VBS TUTORIAL: VBScript statement-for Each ... Next Statement _vbs

For Each ... Next statement

Repeats a set of statements for each element in an array or collection.

For Each element In group
[statements]
[Exit For]
[statements]
Next [element]

Parameters

Element

A variable used to enumerate all the elements in a collection or array. For a collection, theelement may be a variant variable, a universal object variable, or any specified Automation object variable. For an array, anelement can only be a variant variable.

Group

The name of the collection or array of objects.

Statements

One or more statements executed for each item in the group .

Description

If there is at least one element in the group , it goes into the for each block execution. Once you enter the loop, all the statements in the loop are executed first on the first element in the group . As long as there are other elements in the group , the statements in the loop are executed on each element. Exits the loop when there are no more elements in the group , and then continues execution from the statement following the next statement.

Exit for can only be used for each ... Next or for ... Next Control structure, provides another way to exit the loop. You can place any Exit for statements anywhere in the loop. Exit for often is used with conditional judgment statements (for example, If ...). Then), and immediately transfers control to the statement after next .

You can add a For each ... Next loops are placed in the other, forming a nested for each ... Next Loop. But the element of each loop must be unique.

Note If you omit an elementfrom the Next statement, the program continues to execute as if it already contains it. If the Next statement appears before its corresponding for statement, an error is generated.

The following examples illustrate how to use for each ... Next Statement:

Function ShowFolderList(folderspec)  Dim fso, f, f1, fc, s  Set fso = CreateObject("Scripting.FileSystemObject")  Set f = fso.GetFolder(folderspec)  Set fc = f.Files  For Each f1 in fc s = s & f1.name s = s & "<BR>" Next ShowFolderList = sEnd Function