For counter = start To end [Step step] [statements] [Exit For] [statements] Next 参数 counter
用做循环计数器的数值变量。这个变量不能是数组元素或用户自定义类型的元素。 start counter 的初值。 end counter 的终值。 step counter 的步长。如果没有指定，则 step 的默认值为 1。 statements For 和 Next 之间的一条或多条语句，将被执行指定次数。说明 step 参数可以是正数或负数。step 参数值决定循环的执行情况，如下所示： 值如果 ... 则循环执行正数或 0 counter <= end负数 counter >= end
当循环启动并且所有循环中的语句都执行后，step 值被加到 counter 中。这时，或者循环中的语句再次执行（基于循环开始执行时同样的测试），或者退出循环并从 Next 语句之后的语句继续执行。
注意在循环体内改变 counter 的值，将会使程序代码的阅读和调试变得更加困难。
Exit For 只能用于 For Each...Next 或 For...Next 结构中，提供另一种退出循环的方法。可在语句中的任意位置放置任意个 Exit For 语句。Exit For 经常和条件判断语句一起使用（例如 If...Then），并立即将控制权转移到 Next 之后的语句。
可以将一个 For...Next 循环放置在另一个 For...Next 循环中，组成嵌套循环。每个循环中的 counter 要使用不同的变量名。下面的结构是正确的：
一个简单的例子：（关于 FOR的） j=0 for k=\结果输出 5050 ，既 1+2+3......+100=5050.
============================================================
例子 5：文件复制 Set fso = CreateObject(\\
CopyFile 方法
从一个位置向另一个位置复制一个或多个文件。
object.CopyFile ( source, destination[, overwrite] ) 参数
object必选项。object 应为 FileSystemObject的名称。 source
必选项。指定文件字符串，可以包含通配字符来复制一个或多个文件。
destination必选项。目的字符串，文件将从 source 复制到这里。不允许通配字符。 overwrite可选项。Boolean 值，指明是否覆盖已有文件。如果为 true ，则文件将被覆盖；如果为 false ，则文件不会被覆盖。默认的是 true。注意，如果 destination 设置了只读属性，那么无论 overwrite 的值是什么， CopyFile 都会失败。
说明通配字符只能用在 source 参数中最后的路径成分中。
============================================================
例子 5：
Dim fso, d, dc, s, n Set fso = CreateObject(\For Each d in dc
n= \
n = d.ShareName
ElseIf d.IsReady Then n= \磁盘卷标:\磁盘格式\&d.FileSystem End If
s = s & n& Chr(10) Next ShowDriveList = s MsgBox(ShowDriveList) Drives 属性 请参阅
Drives 集合 | Files 属性 | SubFolders 属性 应用于：FileSystemObject 对象语言 VBScript
显示所有语言返回一个 Drives 集合，包含了本地机器上所有可用的 Drive 对象。 object.Drives object 应为 FileSystemObject 。
Drive 对象 请参阅
Drives 集合 | File 对象 | Files 集合 | Folder 对象 | Folders 集合 | GetDrive 方法 语言 VBScript
显示所有语言提供对特定磁盘驱动器或网络共享属性的访问。
DriveLetter 属性 请参阅
AvailableSpace 属性 | DriveType 属性 | FileSystem 属性 | FreeSpace 属性 | IsReady 属性 | Path 属性 | RootFolder 属性 | SerialNumber 属性 | ShareName 属性 | TotalSize 属性 | VolumeName 属性 应用于：Drive 对象语言 VBScript
显示所有语言返回一个物理上的本地驱动器或者网络共享的驱动器号。只读属性。
object.DriveLetter 其中 object 总是一个 Drive 对象。
说明如果所指定的驱动器没有与一个驱动器号关联起来，例如，一个没有映像到驱动器号的网络共享，那么 DriveLetter 属性将返回一个长度为 0 的字符串 (\。
ShareName 属性 请参阅
AvailableSpace 属性 | DriveLetter 属性 | DriveType 属性 | FileSystem 属性 | FreeSpace 属性 | IsReady 属性 | Path 属性 | RootFolder 属性 | SerialNumber 属性 | TotalSize 属性 | VolumeName 属性 应用于：Drive 对象语言 VBScript
显示所有语言返回指定驱动器的网络共享名。 object.ShareName object 总是为 Drive 对象。
说明如果 object 不是网络驱动器，那么 ShareName 属性将返回长度为零的字符串 (\。
DriveType 属性 请参阅
AvailableSpace 属性 | DriveLetter 属性 | FileSystem 属性 | FreeSpace 属性 | IsReady 属性 | Path 属性 | RootFolder 属性 | SerialNumber 属性 | ShareName 属性 | TotalSize 属性 | VolumeName 属性
应用于：Drive 对象语言 VBScript
显示所有语言返回一个值，表示所指定驱动器的类型。
object.DriveType
其中 object 总是一个 Drive 对象。
Case 0：t = \ Case 1：t = \ Case 2：t = \ Case 3：t = \ Case 4：t = \
Case 5：t = \
VolumeName 属性 请参阅
AvailableSpace 属性 | DriveLetter 属性 | DriveType 属性 | FileSystem 属性 | FreeSpace 属性 | IsReady 属性 | Path 属性 | RootFolder 属性 | SerialNumber 属性 | ShareName 属性 | TotalSize 属性 应用于：Drive 对象语言 VBScript
显示所有语言设置或返回指定驱动器的卷名。读/写。
object.VolumeName [= newname]
参数
object必选项。总是为 Drive 对象的名称。 newname可选项。如果提供了这个部分,那么 newname 就将成为指定的 object 的新名称。
IsReady 属性 请参阅
AvailableSpace 属性 | DriveLetter 属性 | DriveType 属性 | FileSystem 属性 | FreeSpace 属性 | Path 属性 | RootFolder 属性 | SerialNumber 属性 | ShareName 属性 | TotalSize 属性 | VolumeName 属性 应用于：Drive 对象语言 VBScript
显示所有语言如果指定驱动器已就绪则返回 True ；否则 False。 object.IsReady object 应为 Drive 对象。
说明对于可移动媒体的驱动器和 CD-ROM 驱动器来说，IsReady 只有在插入了适当的媒体并已准备好访问时才返回 True 。 下面的代码说明了 IsReady 属性的用法：
FileSystem 属性 请参阅
AvailableSpace 属性 | DriveLetter 属性 | DriveType 属性 | FreeSpace 属性 | IsReady 属性 | Path 属性 | RootFolder 属性 | SerialNumber 属性 | ShareName 属性 | TotalSize 属性 | VolumeName 属性 应用于：Drive 对象语言 VBScript
显示所有语言返回指定驱动器所使用的文件系统的类型。
object.FileSystem 其中 object 总是一个 Drive 对象。 说明可能的返回类型包括 FAT、NTFS、和 CDFS。
For Each...Next 语句请参阅 Do...Loop 语句 | Exit 语句 | For...Next 语句 | While...Wend 语句 要求
版本 2 对数组或集合中的每个元素重复执行一组语句。