请教一下，编制一个程序：如何在一个窗体中实现寻找浏览电脑中的文件夹，能否给出关键思路。
还有一个问题就是如何实现将EXCEL中的数据转换到TXT文件中？
本人是新手 ，请不吝赐教，谢谢各位！

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
Text1.Text = Dir1.Path
End Sub
Private Sub Dir1_Change()
File1.Path = Dir1.Path
Text1.Text = Dir1.Path
End Sub
Private Sub File1_Click()
Text1.Text = Dir1.Path & "\" & File1.FileName
End Sub

这个只是浏览驱动器里面的磁盘，没有浏览文件夹。

将EXCEL中的数据转换到TXT文件中
先读取EXCEL中的数据 再写入TXT中
Dim A As String
Dim B As String
Private Sub Form_Load()
A = "c:\1.xls"
B = "c:\2.text"
Open A For Binary As #1
A = Input(LOF(1), 1)
Close #1
Open B For Output As #2
Print #2, A
Close #2
End Sub

用楼上的方法生成的文本文件打开后显示乱码。
Private Sub Command1_Click()
Dim str1 As String
Dim str2 As String
CDl.Filter = "Excel文件|*.xls"
CDl.ShowOpen '打开对话框
str1 = CDl.FileName
Print str1
Open str1 For Binary As #1
str1 = Input(LOF(1), 1)
Close #1
CDl.Filter = "TXT文件|*.txt"
CDl.ShowSave '保存对话框
str2 = CDl.FileName
Open str2 For Output As #2
Print #2, str1
Close #2
End Sub

将TXT文本文件数据转换为Excel文件，转换后能正常打开Excel文件。
Private Sub Command1_Click()
Dim str1 As String
Dim str2 As String
CDl.Filter = "TXT文件|*.txt"
CDl.ShowOpen '打开对话框
str1 = CDl.FileName
Print str1
Open str1 For Binary As #1
str1 = Input(LOF(1), 1)
Close #1
CDl.Filter = "Excel文件|*.xls"
CDl.ShowSave '保存对话框
str2 = CDl.FileName
Open str2 For Output As #2
Print #2, str1
Close #2
End Sub

请问上面的CD1是怎么来的？