Filling Combox with a list of files.

How can I fill a combox with a list of files (say text files)from a directory.

Thanks in advance.

[Aaron Young]

private Sub Command1_Click()
Dim sDir as string
sDir = Dir("C:\Windows\*")
While len(sDir)
Combo1.AddItem sDir
sDir = Dir
Wend
If Combo1.ListCount then Combo1.ListIndex = 0
End Sub




Aaron Young
Analyst Programmer
[email protected]
[email protected]