读取文件夹和文件

如何读取在指定目录中的所有文件夹及文件名？

这么简单的事百度一下，锻炼独立解决问题的能力，不比给分等别人回答强么？
给个提示：
方法一：filelist控件
方法二：借助DIR递归搜索

VB code

'先引用microsoft scripting Runtime
Private Sub Command1_Click()
Dim fso As New FileSystemObject
    Set objFolder = fso.GetFolder("E:\media")
    For Each Path In objFolder.SubFolders
        Debug.Print Path
        For Each Files In fso.GetFolder(Path).Files
            Debug.Print Files
        Next
    Next
End Sub

加强说明下1L的回答

方法一：filelist控件
添加drivelistbox、dirlistbox、filelistbox控件各一个并输入以下代码
VB code

Option Explicit

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub

方法二：借助DIR递归搜索
添加一个textbox、一个commandbutton（这里我用的容器是textbox，你也可以用别的）输入以下代码：
VB code

Option Explicit


Private Sub Command1_Click()
Dim a As String
a = Dir("C:\", vbDirectory Or vbHidden Or vbSystem)
Text1.Text = Text1.Text & "、" & a
Do Until a = ""
a = Dir
Text1.Text = Text1.Text & "、" & a
Loop
End Sub

帮你这一次啊，记准喽，下次不许再来提这种度娘都知道的问题