vb.net遍历结果集 vba遍历

用vb.net怎样实现在遍历某一文件夹下的所有文件

'把下面的目录改成你要遍历的目录

Dim MyDir = "C:\Windows"

Dim MyInfo = MyDir + "目录下的所有文件包括："

For Each MyFile In System.IO.Directory.GetFiles(MyDir)

MyInfo += Environment.NewLine + MyFile

Next

Me.RichTextBox1.Text =MyInfo

VB.NET 遍历 DataGridView

遍历vb.net遍历结果集的例子：

Dim i, j As Integer

For i = 0 To DataGridView1.RowCount - 1

　 For j = 0 To DataGridView1.ColumnCount - 1

MsgBox(DataGridView1.Item(j, i).Value)

　 Next

Next

注意：与Excelvb.net遍历结果集的单元格命名规则不一样vb.net遍历结果集，这里的 Item(j, i) 中，列号 j 在前，行号 i 在后。

VB.NET遍历查找某个文件夹，并找出指定文件

解压密码：1299

假设路径为C:\abc

代码：

Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Dim Files As ObjectModel.ReadOnlyCollection(Of String) = My.Computer.FileSystem.GetFiles("C:\abc")

        Dim FileSize As Long, FileName As String = Nothing

        Dim oFileSize As Long

        For Each File As String In Files

            oFileSize = My.Computer.FileSystem.GetFileInfo(File).Length

            If oFileSize  FileSize Then

                FileSize = oFileSize

                FileName = File

            End If

        Next

        Dim ListN As ListViewItem = New ListViewItem(My.Computer.FileSystem.GetName(FileName))

        ListN.SubItems.Add(oFileSize  " byte")

        ListN.SubItems.Add(My.Computer.FileSystem.GetFileInfo(FileName).Extension  " 文件")

        ListN.SubItems.Add(FileName)

        ListView1.Items.Add(ListN)

    End Sub

End Class

详见源代码！！

vb.net遍历结果集的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vba遍历、vb.net遍历结果集的信息别忘了在本站进行查找喔。