list all files in a directory to a list box

[wengang]

Hi. I know this has been answered before, but i just can't find it.

Can anybody please let me know what function (maybe an API) will allow me to get the names of all files in a given directory listed into a list box. ??

I appreciate any help on this.

Thanks

[Nitro]

Option Explicit

Private Sub Form_Load()
  Call p_List_Directories("C:\")
End Sub

Sub p_List_Directories(str_Path As String)
  'PURPOSE: Add Back Slash
  If Right(str_Path, 1) <> "\" Then str_Path = str_Path & "\"
  
  'PURPOSE: Get the first file
  str_Path = Dir(str_Path & "*.*")
  Do Until str_Path = ""
    
    'PURPOSE: Add it to the Listbox
    List1.AddItem StrConv(str_Path, vbProperCase)
    
    'PURPOSE: Get the next file
    str_Path = Dir()
  Loop
End Sub

[wengang]

That was it!


Thanks, Nitro