设置FileList的文件过滤 为什么过滤不完全
本帖最后由 fjm_520 于 2012-12-28 14:59:52 编辑 目的:让FileList只显示文本文件(*.txt)
File1.Pattern="*.txt"
但结果并不是我想要的,
它把*.txt *.txt123 *.txtabc 这些都显示出来了
应该怎样设置过滤条件呢?
[解决办法]
设不了，它内置的比对就是 Like 方式。
你可以用一个 ListBox 覆盖它。当它的 PathChange 事件发生时，检查并复制有效的文件名。
Private Sub Dir1_Change()
File1.Path = Dir1.List(Dir1.ListIndex)
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub File1_PathChange()
Dim i As Integer
List1.Clear
With File1
For i = 0 To .ListCount - 1
If Right(.List(i), 3) = Right(.Pattern, 3) Then List1.AddItem .List(i)
Next i
End With
End Sub
Private Sub Form_Load()
File1.Pattern = "*.txt"
End Sub
