For Each...Next 语句

对数组或集合中的每个元素重复执行一组语句。 [code][b]For Each[/b] element In group [statements] [Exit For] [statements] [b]Next [/b][element][/code] [h3]参数[/h3]element 用来枚举集合或数组中所有元素的变量。对于集合，[b]element[/b] 可能是 [b]Variant[/b] 变量、通用 [b]Object[/b] 变量或任意指定的 Automation 对象变量。对于数组，[b]element[/b] 只能是 [b]Variant[/b] 变量。 group 对象集合或数组的名称。 statements 对于 [b]group[/b] 中的每一项执行的一条或多条语句。 [h3]说明[/h3]如果 [b]group[/b] 中有至少一个元素，就会进入 [b]For Each[/b] 块执行。一旦进入循环，便首先对 [b]group[/b] 中第一个元素执行循环中的所有语句。只要 [b]group[/b] 中还有其他的元素，就会对每个元素执行循环中的语句。当 [b]group[/b] 中的没有其他元素时退出循环，然后从 [b]Next[/b] 语句之后的语句继续执行。 [b]Exit For[/b] 只能用于 [b]For Each...Next[/b] 或 [b]For...Next[/b] 控制结构中，提供另一种退出循环的方法。可在循环的任意位置放置任意个 [b]Exit For[/b] 语句。[b]Exit For[/b] 经常和条件判断语句一起使用（例如 [b]If...Then[/b]），并立即将控制权转移到 [b]Next[/b] 之后的语句。 可以将一个 [b]For Each...Next[/b] 循环放置在另一个之中，组成嵌套式 [b]For Each...Next[/b] 循环。但是每个循环的 [b]element[/b] 必须是唯一的。 [b]注意[/b] 如果省略 [b]Next[/b] 语句中的 [b]element[/b]，则程序仍会象已包含它一样继续执行。如果 [b]Next[/b] 语句在其相应的 [b]For[/b] 语句之前出现，则会产生错误。 下面例子举例说明如何使用 [b]For Each...Next[/b] 语句:

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