VB中调用dos命令

我想在想在dos中调用“tree”命令，想达到如下目的：

tree f:\gyh /f>>list.txt

即把f：盘下的gyh文件中的子文件夹即文件形成列表输入到list。txt中，但是这个命令要求当前命令必须是在f：盘下执行，如：

c:\>tree f:\gyh /f>>list.txt 这样来执行是不行的，怎么解决这个问题达到我想要的目的呢？

请高手指教！！
 

---

使用批处理吧！

---

没有问题呀，在c盘符下执行 c:\>tree f:\gyh /f>>list.txt ,正确
到底有什么问题

---

批处理这么写：
cd f:
tree f:\gyh /f>>f:\list.txt
保存为批处理.bat，放在vb程序目录中。

vb加个按钮，执行一句：
Private Sub Command1_Click()
Shell App.Path & "\批处理.bat"
End Sub

'f:\list.txt 是将list.txt放在f盘，如果想放d盘改为 tree f:\gyh /f>>d:\list.txt

---

原来不用那么麻烦，一个shell搞定。

---

Private Sub Command1_Click()
Shell "cmd /c tree f:\gyh /f>>f:\list.txt ", vbHide
End Sub

关键是list.txt跑哪里去了，这里是f：盘。

---

一个例子： lRet = Shell("cmd /c move /y c:\Oldlocation.doc d:\newlocation.doc",vbHide)

另一个例子：

Private Sub Command1_Click()
P$ = Environ$("WINDIR") + "\system32\cmd.exe /c mkdir c:\mynewdir"
Print P$
If Shell(P$) > 0 Then
Print "greater"
ChD