Add Certain files in a Directory

[jacobevans]

I want to be able to have someone click a command button, then have a directory form show, that part is complete. Now i need help adding all the files in this directory to a list with the extensions ".mp3, .wav, and .mid".
(view code in discussion 'Directories and Listbox'

[Killer42]

Here's a simple code snippet that uses the FileSystemObject model to find all the files in C:\Temp and load their names into a listbox. It assumes that you have listbox named List1 on your form, and that you have added to your project a reference to Microsoft Scripting Runtime.

Dim fso As New FileSystemObject
Dim d As Folder
Dim f As File
Set d = fso.GetFolder("C:\Temp")
For Each f In d.Files
  List1.AddItem f.Name
Next
Set f = Nothing
Set d = Nothing
Set fso = Nothing

[jacobevans]

Here's a simple code snippet that uses the FileSystemObject model to find all the files in C:\Temp and load their names into a listbox. It assumes that you have listbox named List1 on your form, and that you have added to your project a reference to Microsoft Scripting Runtime.

Dim fso As New FileSystemObject
Dim d As Folder
Dim f As File
Set d = fso.GetFolder("C:\Temp")
For Each f In d.Files
  List1.AddItem f.Name
Next
Set f = Nothing
Set d = Nothing
Set fso = Nothing

i got it working, thanks much

[Killer42]

i got it working, thanks much

Glad to help. :)