• VBScript
  • VBScript 用户手册
    • 什么是 VBScript？
    • 在 HTML 页面中添加 VBScript 代码
    • VBScript基础
      • VBScript 数据类型
      • VBScript 变量
      • VBScript 常数
      • VBScript 运算符
      • 使用条件语句
      • 使用循环语句
      • VBScript 过程
      • VBScript 编码约定
    • Internet Explorer 中的 VBScript
      • VBScript 页面的简单样例
      • VBScript 与窗体
      • 在 VBScript 中使用对象
  • 语言参考
    • VBScript 特性
    • 未包含在 Visual Basic for Applications 中的 VBScript 特性
    • 未包含在 VBScript 中的 Visual Basic for Applications 特性
    • VBScript 常数
      • 颜色常数
      • 比较常数
      • 日期和时间常数
      • 日期格式常数
      • 其他常数
      • MsgBox 常数
      • 字符串常数
      • 三态常数
      • VarType 常数
      • VBScript 常数
    • VBScript 错误
      • VBScript 运行时错误
      • VBScript 语法错误
    • VBScript 事件
      • Initialize 事件
      • Terminate 事件
    • VBScript 函数
      • Abs 函数
      • Array 函数
      • Asc 函数
      • Atn 函数
      • CBool 函数
      • CByte 函数
      • CCur 函数
      • CDate 函数
      • CDbl 函数
      • Chr 函数
      • CInt 函数
      • CLng 函数
      • 转换函数
      • Cos 函数
      • CreateObject 函数
      • CSng 函数
      • CStr 函数
      • Date 函数
      • DateAdd 函数
      • DateDiff 函数
      • DatePart 函数
      • DateSerial 函数
      • DateValue 函数
      • Day 函数
      • 派生数学函数
      • Eval 函数
      • Exp 函数
      • Filter 函数
      • FormatCurrency 函数
      • FormatDateTime 函数
      • FormatNumber 函数
      • FormatPercent 函数
      • GetLocale 函数
      • GetObject 函数
      • GetRef 函数
      • Hex 函数
      • Hour 函数
      • InputBox 函数
      • InStr 函数
      • InStrRev 函数
      • Int、Fix 函数
      • IsArray 函数
      • IsDate 函数
      • IsEmpty 函数
      • IsNull 函数
      • IsNumeric 函数
      • IsObject 函数
      • Join 函数
      • LBound 函数
      • LCase 函数
      • Left 函数
      • Len 函数
      • LoadPicture 函数
      • Log 函数
      • LTrim、RTrim 和 Trim 函数
      • 数学函数
      • Mid 函数
      • Minute 函数
      • Month 函数
      • MonthName 函数
      • MsgBox 函数
      • Now 函数
      • Oct 函数
      • Replace 函数
      • RGB 函数
      • Right 函数
      • Rnd 函数
      • Round 函数
      • ScriptEngine 函数
      • Microsoft(R) Visual Basic(R) Scripting Edition
      • ScriptEngineMajorVersion 函数
      • ScriptEngineMinorVersion 函数
      • Second 函数
      • SetLocale 函数
      • Sgn 函数
      • Sin 函数
      • Space 函数
      • Split 函数
      • Sqr 函数
      • StrComp 函数
      • String 函数
      • StrReverse 函数
      • Tan 函数
      • Time 函数
      • Timer 函数
      • TimeSerial 函数
      • TimeValue 函数
      • TypeName 函数
      • UBound 函数
      • UCase 函数
      • VarType 函数
      • Weekday 函数
      • WeekDayName 函数
      • Year 函数
    • VBScript 关键字
      • Empty
      • False
      • Nothing
      • Null
      • True
    • VBScript 方法
      • Clear 方法
      • Execute 方法
      • Raise 方法
      • Replace 方法
      • Test 方法
    • • 字符集 (0 - 127)
      • 字符集 (128 - 255)
      • 区域设置 ID (LCID) 表
    • VBScript 对象
      • Class 对象
      • Err 对象
      • Match 对象
      • Matches 集合
      • 正则表达式(RegExp)对象
    • VBScript 运算符
      • 运算符(+)
      • And 运算符
      • 算术运算符
      • 赋值运算符
      • 赋值运算符 (=)
      • 比较运算符
      • 连接运算符 (&)
      • 连接运算符
      • 除运算符 (/)
      • Eqv 运算符
      • 幂运算符 (^)
      • Imp 运算符
      • \ 运算符
      • Is 运算符
      • 逻辑运算符
      • Mod 运算符
      • 乘运算符 (*)
      • Not 运算符
      • 运算符优先级
      • 运算符概述
      • Or 运算符
      • 减运算符 (-)
      • Xor 运算符
    • VBScript 属性
      • Description 属性
      • FirstIndex 属性
      • Global 属性
      • HelpContext 属性
      • HelpFile 属性
      • IgnoreCase 属性
      • Length 属性
      • Number 属性
      • Pattern 属性
      • Source 属性
      • Value 属性
    • VBScript 语句
      • Call 语句
      • Class 语句
      • Const 语句
      • Dim 语句
      • Do...Loop 语句
      • Erase 语句
      • Execute 语句
      • ExecuteGlobal 语句
      • Exit 语句
      • For Each...Next 语句
      • For...Next 语句
      • Function 语句
      • If...Then...Else 语句
      • On Error 语句
      • Option Explicit 语句
      • Private 语句
      • Property Get 语句
      • Property Let 语句
      • Property Set 语句
      • Public 语句
      • Randomize 语句
      • ReDim 语句
      • Rem 语句
      • Select Case 语句
      • Set 语句
      • Sub 语句
      • While...Wend 语句
      • With 语句
  • FileSystemObject 用户指南
    • FileSystemObject 对象模型
    • FileSystemObject 和 Scripting 运行时库参考的介绍
    • FileSystemObject 对象
    • 设计 FileSystemObject
    • 处理驱动器和文件夹
    • 处理文件
    • FileSystemObject 示例代码
  • Scripting 运行时库参考
    • Microsoft Scripting 运行时库特性
    • • DriveType 常数
      • 文件属性常数
      • 文件输入/输出常数
      • FileSystemObject 常数
      • SpecialFolder 常数
    • • Add 方法(Dictionary)
      • AddFolders 方法(Folders)
      • BuildPath 方法
      • Close 方法
      • Copy 方法
      • CopyFile 方法
      • CopyFolder 方法
      • CreateFolder 方法
      • CreateTextFile 方法
      • Delete 方法
      • DeleteFile 方法
      • DeleteFolder 方法
      • DriveExists 方法
      • Exists 方法
      • FileExists 方法
      • FolderExists 方法
      • GetAbsolutePathName 方法
      • GetBaseName 方法
      • GetDrive 方法
      • GetDriveName 方法
      • GetExtensionName 方法
      • GetFile 方法
      • GetFileName 方法
      • GetFolder 方法
      • GetParentFolderName 方法
      • GetSpecialFolder 方法
      • GetTempName 方法
      • Items 方法
      • Keys 方法
      • Move 方法
      • MoveFile 方法
      • MoveFolder 方法
      • OpenAsTextStream 方法
      • OpenTextFile 方法
      • Read 方法
      • ReadAll 方法
      • ReadLine 方法
      • Remove 方法
      • Skip 方法
      • SkipLine 方法
      • Write 方法
      • WriteBlankLines 方法
      • WriteLine 方法
    • • Dictionary 对象
      • Drive 对象
      • Drives 集合
      • File 对象
      • Files 集合
      • FileSystemObject 对象
      • Folder 对象
      • Folders 集合
    • • AtEndOfLine 属性
      • AtEndOfStream 属性
      • Attributes 属性
      • AvailableSpace 属性
      • Column 属性
      • CompareMode 属性
      • Count 属性
      • DateCreated 属性
      • DateLastAccessed 属性
      • DateLastModified 属性
      • Drive 属性
      • DriveLetter 属性
      • Drives 属性
      • DriveType 属性
      • Files 属性
      • FileSystem 属性
      • FreeSpace 属性
      • IsReady 属性
      • IsRootFolder 属性
      • Item 属性
      • Key 属性
      • Line 属性
      • Name 属性
      • ParentFolder 属性
      • Path 属性
      • RootFolder 属性
      • SerialNumber 属性
      • ShareName 属性
      • ShortName 属性
      • ShortPath 属性
      • Size 属性
      • SubFolders 属性
      • TotalSize 属性
      • Type 属性
      • VolumeName 属性
  • 正则表达式简介
    • 正则表达式
    • 早期起源
    • 使用正则表达式
    • 正则表达式语法
    • 建立正则表达式
    • 优先权顺序
    • 普通字符
    • 特殊字符
    • 非打印字符
    • 字符匹配
    • 限定符
    • 定位符
    • 选择和编组
    • 后向引用

For Each...Next 语句

对数组或集合中的每个元素重复执行一组语句。

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

参数

element

用来枚举集合或数组中所有元素的变量。对于集合，element 可能是 Variant 变量、通用 Object 变量或任意指定的 Automation 对象变量。对于数组，element 只能是 Variant 变量。

group

对象集合或数组的名称。

statements

对于 group 中的每一项执行的一条或多条语句。

说明

如果 group 中有至少一个元素，就会进入 For Each 块执行。一旦进入循环，便首先对 group 中第一个元素执行循环中的所有语句。只要 group 中还有其他的元素，就会对每个元素执行循环中的语句。当 group 中的没有其他元素时退出循环，然后从 Next 语句之后的语句继续执行。

Exit For 只能用于 For Each...Next 或 For...Next 控制结构中，提供另一种退出循环的方法。可在循环的任意位置放置任意个 Exit For 语句。Exit For 经常和条件判断语句一起使用（例如 If...Then），并立即将控制权转移到 Next 之后的语句。

可以将一个 For Each...Next 循环放置在另一个之中，组成嵌套式 For Each...Next 循环。但是每个循环的 element 必须是唯一的。

注意 如果省略 Next 语句中的 element，则程序仍会象已包含它一样继续执行。如果 Next 语句在其相应的 For 语句之前出现，则会产生错误。

下面例子举例说明如何使用 For Each...Next 语句:

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 =s
End Function

要求

版本 2

请参阅

Do...Loop 语句 | Exit 语句 | For...Next 语句 | While...Wend 语句