获取文件夹下的文件列表

Question

我想在窗体加载的时候，把指定目录下的文件列表显示在listbox中，请问有什么办法？初学者，请稍微详细一点，谢谢~~！！

Answer 1

DIR遍历
在CSDN搜索，有很多类似例子

Answer 2

'添加 List1Private WithEvents TmpDir1 As DirListBox
Private WithEvents TmpFile1 As FileListBox
Private Sub Form_Load()
   Set TmpDir1 = Me.Controls.Add("VB.DirListBox", "TmpDir1")
   Set TmpFile1 = Me.Controls.Add("VB.FileListBox", "TmpFile1")
   TmpDir1.Path = "e:\music"  '指定你的文件夹路径
   TmpFile1.Pattern = "*.mp3;*.mid;*.wav" '指定你要的扩展名
   TmpFile1.Path = TmpDir1.Path
   For i = 0 To TmpFile1.ListCount - 1
      List1.AddItem IIf(Right(TmpDir1.Path, 1) = "\", TmpDir1.Path & TmpFile1.List(i), TmpDir1.Path & "\" & TmpFile1.List(i))
   Next i
End Sub