给你一个提示吧！呵呵，剩下的要自己思考哦！
资兴网站建设公司成都创新互联,资兴网站设计制作，有大型网站制作公司丰富经验。已为资兴上千余家提供企业网站建设服务。企业网站搭建\外贸网站建设要多少钱，请找那个售后服务好的资兴做网站的公司定做！
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 最好了。
回答补充：
把递归去掉就行了啊！
这个不是遍历吧！只是简单将数组中的数取出来而已；
msgbox(os(a))
你的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
如果你的控件没有被放在某个容器里，比如groupbox一类的东西里面的话，使用：
foreach(Control c in this.Controls)
{
____if( c is TextBox )
_________richtextbox.Text += c.Text;
}
应该可以获得想要的效果，如果使用了容器，那记得对每个容器都调用上面的代码，把this换成容器的对象就可以了。
是这么定义的：
数组中的第一个元素的下标称为下界，最后一个元素的下标称为上界，其余的元素连续地分布在上下界之间，且数组在内存中也是用连续的区域来存储的，所以数组每维的长度不能超过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
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