VB 搜索目录下所有ini类型文件

怎么不用CMD命令
dir *.ini /b

用file控件（名设fle）
dim i as long
fle.Pattern = "*.ini"
fle.Path = "C:\windows\"
for i = 0 to fle.listcount
list1.additem fle.list(i)
next

Private Sub Form_Load()
Dim filename, path As String
path = "c:\windows\" '设置目录
filename = Dir(path & "*.ini")
Do While filename <> ""
List1.AddItem filename '这里的filename不含路径，若需要路径，请自己修改
filename = Dir() '读取下一个文件
Loop
End Sub