设置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