锐客网

  1. 首页 > 生活百科 > it技术 > >

vb.net遍历结果集 vba遍历

IT技术遍历

用vb.net怎样实现在遍历某一文件夹下的所有文件'把下面的目录改成你要遍历的目录
Dim MyDir = "C:\Windows"
Dim MyInfo = MyDir"目录下的所有文件包括："
For Each MyFile In System.IO.Directory.GetFiles(MyDir)
MyInfo= Environment.NewLineMyFile
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 oFileSizeFileSize 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遍历结果集的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vba遍历、vb.net遍历结果集的信息别忘了在本站进行查找喔 。

    推荐阅读


    上一篇：怎么设置手机u盘提示，手机怎么设置u盘使用

    下一篇：ipad如何删除word，ipad如何删除safari