遍历跟目录文件到COMBO控件中,该怎么处理

遍历跟目录文件到COMBO控件中
比如根目录有   若干.ini   文件
我想把这些INI文件遍历到COMBO控件中
遍历进后不带后缀名,但指定遍历ini文件
请问怎么做？

------解决方案--------------------
加个file控件

Private Sub Form_Load()
Dim x As Integer
File1.Path = App.Path
File1.Pattern = "*.ini "
For x = 0 To File1.ListCount - 1
Combo1.AddItem Left(File1.List(x), Len(File1.List(x)) - 4)
Next
End Sub
------解决方案--------------------
不需要控件，直接用 Dir 函数就可以实现：

Dim strFile As String

strFile = Dir( "C:\*.ini ")

Combo1.Clear
Do Until strFile = " "
Combo1.AddItem Mid(strFile, 4, Len(strFile) - 7)
strFile = Dir()
Loop
------解决方案--------------------
Dim strFile As String

strFile = Dir( "C:\*.ini ")

Combo1.Clear
Do Until strFile = " "
Combo1.AddItem Mid(strFile, instrrev(strFile, "\ ")+1, instrrev(strFile, ". ")-instrrev(strFile, "\ ")-1)
strFile = Dir()
Loop