vb保存数据问题，选择路径保存 - VB / 基础类

我建立了个list1 drive1 dir1 向list里面添加了几行数字，希望通过选择dir1中的文件夹“新建文件夹2”，把list1中的数字保存在新建文件夹2中去，用的写入语言是input，并且保存为doc文档，但我不会获得新建文件夹2的路径。我的已有程序为：Dim fs As New FileSystemObject, dr As Drive, fl As Folder, s As String
Private Sub Command1_Click()
Set fl = fs.GetFolder(Dir1.Path)
ms = "新建文件夹名："
ms = ms & Chr(13) & Chr(13) & "当前文件夹是："
a = InputBox(ms & fl.Path, "新建", "新建文件夹")
If Len(Trim(a)) <> 0 Then Set fl = fs.CreateFolder(a)
Dir1.Refresh
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Command3_Click()
n = Form1.List1.ListCount - 1

Open \数据.doc For Output As #1
For i = 1 To n
Print #1, Form1.List1.List(i)
Next i

End Sub

Private Sub Dir1_Change()
ChDir Dir1.Path
End Sub

Private Sub Drive1_Change()
On Error GoTo 100
Dir1.Path = Drive1.Drive
ChDrive Drive1.Drive
ChDir Dir1.Path
100
MsgBox ("驱动器无效！！大哥！")
End Sub

红字部分是我想选择的路径，怎么从dri1中获得并将数据存入这个文件夹呢？大侠们拜托了！

---

帮忙顶一下

---

就像另存为一样，我想选择个路径，而不是一个固定路径！

---

可以用 另外一个控件 Microsoft common dialog control 6.0
commondialog
可以直接得到filename