如题，我希望能通过驱动选择到文件夹，随后对统一的后缀文件名进行文件名的显示。那我应该如何操作呢？？？
比如：“C：\我的文件夹” 下面我需要显示所有的.exe .jpg .txt 等等（我在FORM里做了复选框可以进行选择）指定我需要显示的文件类型后，便在filelistbox中显示该文件夹下所有的选中文件：）
请高手指点！
刚学VB不久的小菜鸟学习中，请对代码进行解释，不然大虾的代码能用却不知道为什么，谢谢各位先！

我也想要知道

Private Sub Check1_Click(Index As Integer)

Dim i As Long, j As String

'定义各个后缀
Dim 后缀(3) As String
后缀(1) = "*.exe"
后缀(2) = "*.jpg"
后缀(3) = "*.txt"

'扫描各个控件
For i = 0 To 2
    If Check1(i).Value = 1 Then
        '如果这个控件是选择了,那么就加进去
        j = j & ";" & 后缀(i + 1)
    End If
Next i

j = Mid(j, 2)
File1.Pattern = j

End Sub

试过，好像不行啊！
还要加什么控件吗

Check1 控件三个,分别是:
Check1(0)
Check1(1)
Check1(2)

File1 控件1个.

风，我试过了，好像还是不行啊！
Private Sub Check_Click(Index As Integer)

Dim x As Long
Dim y As String


Dim 后缀(8) As String

    后缀(1) = ".exe"
    后缀(2) = ".txt"
    后缀(3) = ".doc"
    后缀(4) = ".elx"
    后缀(5) = ".jpg"
    后缀(6) = ".htm"
    后缀(7) = ".pdh"
    后缀(8) = ".dll"


For x = 0 To 7
    If Check(x).Value = 1 Then
        
        y = y & ";" & 后缀(x + 1)
        
    End If
Next x

    y = Mid(y, 2)
    File1.Parent = y


End Sub

这个是根据你给的改了，其中能解释以下红色部分吗？不是很理解这个Y是什么？？？能举例说明下吗?

你这里的mid函数是不是意思就是：读取Y变量中第2个字符以后的所有字符，再付回Y中去？？？

        
        y = y & ";" & 后缀(x + 1)    '如果符合条件，也就是勾了，那么就把对应的后缀连到字符串里去
        

'所以的字串都连完后，那么Y 里的值就是以 分号开头的多个组连接起来的字符串，而 parent  要求是各组之间用 分号  分隔，那么就从第二个字符开始取字符串
    y = Mid(y, 2)

'把生成的字符串给 parent 属性进行文件类型筛选
    File1.Parent = y

风，我现在做了段程序，你帮我看看为什么就是显示不出我要求的效果累？？
     Dim i As String
     Dim j As String
     Dim x As Long
     Dim y As String
Private Sub Check_Click(Index As Integer)




Dim 后缀(8) As String

    后缀(1) = "*.exe"
    后缀(2) = "*.txt"
    后缀(3) = "*.doc"
    后缀(4) = "*.elx"
    后缀(5) = "*.jpg"
    后缀(6) = "*.htm"
    后缀(7) = "*.pdh"
    后缀(8) = "*.dll"


For x = 0 To 7
    If Check(x).Value = 1 Then
        
        y = y & ";" & 后缀(x + 1)
        
    End If
Next x



End Sub


Private Sub Command1_Click()

    y = Mid(y, 2)
    File1.Parent = y
   
End Sub

Private Sub Dir1_Change()

    File1.Path = Dir1.Path

End Sub

Private Sub Drive1_Change()

    Dir1.Path = Drive1.Drive

End Sub

Private Sub File1_Click()

    i = File1.List(File1.ListIndex)
   
If UCase(Right(i, 4)) = ".TXT" Then

    Open (File1.Path & "\" & i) For Input As #1
    Do While Not EOF(1)
    Line Input #1, j
    j = Text & j & vbCrLf
    Loop
   
   
    Close #1
    j = Replace(j, ".a:", ".speed")
    j = Replace(j, ".b:", ".high")
    j = Replace(j, ".c:", ".weigth")
    j = Replace(j, "*", vbCrLf & "")
   
End If

    RichTextBox1.Text = j
   
End Sub



Private Sub Form_Load()

    File1.Path = Dir1.Path
    Dir1.Path = Drive1.Drive
    Drive1.Drive = "d:"
    Dir1.Path = "E:\mengyuan"
   
End Sub

我选择类型以后，还是不行
FILE1框内显示的内容不会变化
所以我又做了个按钮，执行后效果一样，还报错