Populating Listbox w/Filenames

[cstimart]

I have a drive (M:\Stuff) that holds data in various .xlsx files. The number of files is not definite and can increase/decrease.

How can I extract the available filenames and populate in a listbox for a user to select the needed data/file?

 

[VoG]

Try like this

Sub a()
Dim MyFolder As String
Dim MyFile As String
MyFolder = "M:\Stuff"
MyFile = Dir(MyFolder & "\*.xlsx")
Do While MyFile <> ""
    UserForm1.ListBox1.AddItem MyFile
    MyFile = Dir
Loop
UserForm1.Show
End Sub