历遍数组vb.net 什么是遍历数组

在VB.net中，如何遍历指定路径下的文件夹并把文件夹名存储在数组中？

给你一个提示吧！呵呵，剩下的要自己思考哦！

Path：是初始目录的路径

Private Sub WriteArray(ByVal Path As String)

'写入数组代码在这里，直接将Path写到数组就行了。

Dim dir As New IO.DirectoryInfo(Path)

For Each d As IO.DirectoryInfo In dir.GetDirectories

WriteArray(d.FullName) '递归

Next

End Sub

如果子目录较多那么递归会比较费时间，在调用递归前加入application.doevent就行了，这样在应对大递归时不会死机。

至于数组嘛使用 arraylist 最好了。

回答补充：

把递归去掉就行了啊！

相关问答

Q1: VB.net 匹配数组的问题（数据结构遍历？）

这个不是遍历吧！只是简单将数组中的数取出来而已；

msgbox(os(a))

Q2: vb.net 如何遍历treeview 并把子节点的text与string数组比较

你的treeview和数组是什么结构呢？这个源码你改改用吧

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

Dim str(TreeView1.GetNodeCount(False) - 1, 0) As String '定义一个2维数组存放节点内容

Dim node As TreeNode

Dim childnode As TreeNode

Dim i, j As Integer

i = 0

For Each node In TreeView1.Nodes '循环根节点

j = 1

str(i, 0) = node.Text '每个根节点的内容存放在第一列

If UBound(str, 2) node.GetNodeCount(False) Then

ReDim Preserve str(TreeView1.GetNodeCount(False) - 1, node.GetNodeCount(False)) '根据子节点的数目更改数组大小

End If

For Each childnode In node.Nodes '循环子节点

str(i, j) = childnode.Text '存放每个子节点的内容

j = j + 1

Next

i = i + 1

Next

node = Nothing

childnode = Nothing

End Sub

Q3: vb 怎么遍历数组控件

如果你的控件没有被放在某个容器里，比如groupbox一类的东西里面的话，使用：

foreach(Control c in this.Controls)

{

____if( c is TextBox )

_________richtextbox.Text += c.Text;

}

应该可以获得想要的效果，如果使用了容器，那记得对每个容器都调用上面的代码，把this换成容器的对象就可以了。

Q4: VB中数组怎么定义

是这么定义的：

数组中的第一个元素的下标称为下界，最后一个元素的下标称为上界，其余的元素连续地分布在上下界之间，且数组在内存中也是用连续的区域来存储的，所以数组每维的长度不能超过Long数据类型的最大值，即264—1=263。

把VB．NET数组当作一个对象来处理，就意味着数组类型是单个引用类型，数组变量包括指向构成数组元素、数组维和数组长度等数据的指针，数组之间互相赋值但仅仅是在相互复制指针，数组继承了System名字空间的Array类。

VB．NET中的数组有两种类型：定长数组和动态数组。

扩展资料：

1、数组的使用

在’VB 6．0中，能够用For Each来循环遍历一个数组。

比如：

Dim x As Integer

F0r Each x In arrayl

Console．WriteLine(x)

Next 

2、在VB．NET中能够使用For循环和数组长度来遍历一个数组。

比如：

Dim i As工nteger   

F0r i=0 T0  (arrayl．Length-1)

（此处空一行）

Console．WriteLine(arrayl(1)J

Next i

Q5: VB.net的遍历Foreach有什么功能呀。一直看不懂。 能给我解释下图中的语句意思吗？

for each是用来简化for的，但你这种写法有点奇怪，一般没这样用的，通常的用法是

dim a() as string={....}

dim str as string '定义临时变量，它的类型与你数组中元素类型一致

For Each str In a

MessageBox.Show(str)

Next

你上面代码中,a就是一个3个元素的数组，从a[0]到a[2]， 用for each的时候，就会遍历你的a数组，上面的代码相当于

for i=0 to a.Length-1

MessageBox.Show(a(i))

next