如何用vb获取c:\a文件下的所有.txt的名字，并把名字输出到自己新建的a.txt中

Private Sub Command1_Click()
List = ""
tmp = Dir("c:\*.txt")
List = tmp + vbCrLf
Do While tmp <> ""
tmp = Dir
List = List + tmp + vbCrLf
Loop

Open "c:\a.txt" For Output As #1
Print #1, List
Close #1
End Sub

如果是要输出到程序目录下的a.txt，就改为：
Open app.path+"\a.txt" For Output As #1