VB工程--百例48--文件过滤

 

Option Explicit

Private Sub Command1_Click(Index As Integer)
        Select Case Index                    以命令按钮的索引作为测试表达式
        Case 0
        File1.Pattern = "*.*"
        Case 1
        File1.Pattern = "*.txt"
        Case 2
        File1.Pattern = "*.jpg;*.bmp;*.tif"
        Case 3
        File1.Pattern = "*.mp3;*.wav;*.avi;*.dat"
        End Select
End Sub

Private Sub Dir1_Change()
        File1.Path = Dir1.Path               目录列表改变时，文件列表也改变
End Sub

Private Sub Drive1_Change()
        Dir1.Path = Drive1.Drive          驱动器列表改变时，目录列表页改变
       
End Sub

Private Sub Form_Load()
        Dir1.Path = "C:windows"           显示c磁盘中的windows文件下的文件
       
End Sub