我的是VB.NET 2010：在编程环境中，双击窗体右边的“解决方案资源管理器”里的
十年的港闸网站建设经验，针对设计、前端、开发、售后、文案、推广等六对一服务，响应快，48小时及时工作处理。成都营销网站建设的优势是能够根据用户设备显示端的尺寸不同，自动调整港闸建站的显示方式，使网站能够适用不同显示终端，在浏览器中调整网站的宽度，无论在任何一种浏览器上浏览网站，都能展现优雅布局与设计，从而大程度地提升浏览体验。创新互联从事“港闸网站设计”,“港闸网站推广”以来，每个客户项目都认真落实执行。
My Project，见图：
出现下图：
再单击图中的“编译”，出现下图：
注意，可以根据你的需要修改“生成输出路径”，这里我把要启动的程序文件.exe，复制到这个文件路径的文件夹里。
下面我的实例是启动windows的记事本程序，我把这个文件NOTEPAD.EXE复制到本工程的debug文件夹里。
代码如下：启动记事本程序，并以默认窗体具有焦点的方式出现。
Dim i As Integer
i = Shell(Application.StartupPath "\NOTEPAD.EXE", AppWinStyle.NormalFocus)
如果想在启动该程序的同时，打开一个相关的.txt文档，见下代码：
注意，把文档abc.txt也复制到相应文件夹里。
Dim i As Integer
i = Shell(Application.StartupPath "\NOTEPAD.EXE abc.txt", AppWinStyle.MaximizedFocus)
本例将以最大化窗口方式打开。
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 最好了。
回答补充：
把递归去掉就行了啊！
选择文件夹 在工具箱 - 对话框 里选择 FolderBrowserDialog 添加 到设计器中
然后 代码写在 按钮事件里
FolderBrowserDialog1.ShowDialog()
textbox1.text =FolderBrowserDialog1.SelectedPath
选择文件 在工具箱 - 对话框 里选择 OpenFileDialog
把 OpenFileDialog1.ShowDialog()
TextBox1.Text = OpenFileDialog1.FileName
写到按钮事件下
如图
点击按钮会弹出 通用对话框 选择好路径后 确定 ，编辑框里就会显示选择的路径
System.Windows.Forms.OpenFileDialog
System.Windows.Forms.SaveFileDialog
System.Windows.Forms.FolderBrowserDialog
以上三个类均能够很好的解决楼主的需求。
具体的请lz自己查msdn
