VB6.0 dirlistbox控件选择指定文件类型

VB6.0 中的 DirListBox 控件主要用于显示目录下的文件列表，并允许用户选择。如果你想要限制 DirListBox 只显示特定类型的文件，比如只显示 .txt 文件，你可以通过以下步骤实现：

1. **设置初始目录**：
在 DirListBox 的 `Load` 事件中，指定一个初始目录，例如：

   Private Sub DirListBox_Load()
       DirListBox.Path = "C:\YourDirectory\" ' 将 'YourDirectory' 替换为你希望显示文件的目录
   End Sub

2. **过滤文件类型**：
使用 `Dir` 函数配合 `For Each` 循环筛选出符合条件的文件名，然后添加到 DirListBox 中。例如，只显示.txt文件：

   Private Sub DirListBox_Click()
       Dim filePath As String
       Dim extFilter As String
       extFilter = "*.txt" ' 指定过滤的文件扩展名

       For Each filePath In Dir(DirListBox.Path & "\" & extFilter)
           DirListBox.AddItem filePath
       Next filePath
   End Sub

当你点击 DirListBox 时，会自动筛选并显示指定类型的文件。