multiple files to listbox

[thingimijig]

how would i go about retrieving all the files (filenames) in a specified folder to a listbox.

thanks
thingimijig.

[peet]

Private Declare Function SendMessage Lib "User" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any)
Private Const WM_USER = &H400
Private Const LB_DIR = (WM_USER + 14)
Private Const DIR_NORMALFILES = &H0
 
Sub ListFiles (sFileSpec As String)
Dim i As Long
List1.Clear 
i = SendMessage(List1.hWnd, LB_DIR, DIR_NORMALFILES, ByVal sFileSpec)
End Sub
 
Private Sub Command1_Click ()
Call ListFiles("C:\WINDOWS\*.*")
End Sub