命名空间:System.Windows.Forms
目前创新互联公司已为成百上千家的企业提供了网站建设、域名、虚拟主机、网站改版维护、企业网站设计、亳州网站维护等服务，公司将坚持客户导向、应用为本的策略，正道将秉承"和谐、参与、激情"的文化，与客户和合作伙伴齐心协力一起成长，共同发展。
Application.StartupPath 属性(返回String)
获取启动了应用程序的可执行文件的路径，不包括可执行文件的名称。
Application.ExecutablePath 属性(返回String)
获取启动了应用程序的可执行文件的路径，包括可执行文件的名称。
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(Application.StartupPath)
显示的就是，你的当前默认的相对路径。
也可以按照自己的需要重新设置该路径。
因为不明白你问题的用意，只能这么回答你了。
绝对路径是指在文件标识符的位置，应该包含了从磁盘驱动器符号开始的所有完整路径。那么相对路径只需要在文件标识符的位置，包含斜杠 加 文件名就可以了。
相对路径，其实是指从相对于当前文件夹而言。
