For Each...Next 循环语句

For Each...Next 是 For...Next 派生出来的循环语句，用于将一个集合的元素循环一遍。
比如，将一个文件夹的所有文件名称列示出来，我们就可以用For Each...Next 循环。

试一试

我们这个示例是使用 For Each...Next 循环列示 C 盘根目录下的文件夹。
1. 新建一个 Form。
2. 添加一个 Button 控件，将其 Name 属性设置为btnDisplay，Text 属性设置为 Display。
3. 添加一个 ListBox 控件，将其 Name 设置为 lstData。
4. 双击 Button 控件，进入代码编辑器，然后加入下面红色代码如下：

Public Class Form1
    Private Sub btnDisplay_Click(ByVal sender As System.Object,  _
    ByVal e As System.EventArgs) Handles btnDisplay.Click
        For Each strFolder As String In My.Computer.FileSystem.GetDirectories("C:\")
            lstData.Items.Add(strFolder)
        Next
    End Sub
End Class

5. 然后 F5 运行，点击 btnDisplay 按钮，你会看到 C 盘根目录下的文件夹列示在 ListBox 里。

编者或作者: 我有闲    收录日期: 2008-10-22
参考或来源:

上一页: For...Next 循环语句 返回上级目录: 流程控制 下一页: Do Until...Loop 循环