如何用VB将外接移动硬盘中的成千上万个文件夹的名字读到word中

很简单,DOS的Tree命令,就用SHELL 一行就OK了
shell "cmd /c tree " & "目录或驱动名称" & ">欲输出的doc文件名"
举例:shell "cmd /c tree D: >C:\1.doc"
将D盘所有的目录输出到1.doc文件中

我的方法是：
1. 利用VB自带控件
2. 利用Dir函数
3. 利用FSO模型
得到文件列表。
至于读入word可以利用宏，可以利用Word.Application对象，可以写docx格式，可以写rtf格式，可以写纯文本格式……