How to populate file name in the directory?

[Hack]

Thank you so much.. I would like to search a specific files with the extension *.shp.. How to do that?

If all you want are those, then why load all files

Private Sub Command1_Click()
Dim strLoad As String
Combo1.Clear
strLoad = Dir("c:\Database\*.shp")
Do While strLoad > vbNullString
   Combo1.AddItem strLoad
   strLoad = Dir
Loop
End Sub