VB6.0 选择指定文件类型

在VB6.0中，如果你需要让用户选择特定类型的文件（例如只允许选择.txt文件），你可以使用`CommonDialog` 控件中的`FileOpen` 方法结合一些条件判断来实现。下面是一个简单的例子：

Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogOpen)

' 设置对话框属性
fd.Filter = "文本文件 (*.txt);*.txt" ' 只显示.txt文件
fd.FilterIndex = 1 ' 把.txt文件设为默认过滤项

If fd.Show <> -1 Then ' 用户点击了OK按钮
    Dim selectedFile As String
    selectedFile = fd.SelectedItems(1) ' 获取用户选中的文件路径
    ' 然后你可以对selectedFile做进一步操作，如读取文件内容
Else ' 用户取消或未做选择
    MsgBox "未选择文件"
End If

在这里，`fd.Filter` 属性设置了过滤器，`fd.FilterIndex` 设定了默认的过滤选项。只有当用户选择了一个.txt文件并点击确定（`fd.Show <> -1`）时，我们才获取文件路径。