Listing Files in a Directory 1

[vvilan]

Hi, how do you list all the files in a directory in MS access using VBA? Preferably in a list or combo box.

thanks in advance!

 

[fneily]

There's a few ways. You can try this on a button or as is on the OnLoad event. Change Row Source type to Value list.
Private Sub Form_Load()
Dim LoadFiles As String
Dim strFill As String
LoadFiles = Dir$("c:\dev\*.*")
Do While LoadFiles > ""
strFill = strFill & LoadFiles & ";"
LoadFiles = Dir$
Loop
lstFiles.RowSource = strFill
End Sub

 

[vvilan]

I changed the row source type to value list and added this method to the load event and replaced lstFiles with my listbox's name as well as changed the path to currentProject.path & "\

 

[vvilan]

** Posted too quickly, and it still doesn't work

 

[vvilan]

Never mind, it works perfectly thank you very much!