如何在VBA的Application.FileDialog中筛选无扩展名文件？

Application.FileDialog的筛选器不支持直接使用*或*.这类模式来筛选无扩展名文件，强行使用会触发"无效的过程调用或参数"错误。要实现需求，得先允许选择所有文件，再在用户选择后验证文件是否无扩展名，具体方案如下：

解决思路 #

1. 将文件筛选器设为*.*（显示所有文件），自定义名称为"无扩展名文件"关联该模式
2. 用户选择文件后，通过检查文件扩展名是否为空来验证合规性
3. 若选中的文件带扩展名，提示用户重新选择

修改后的代码示例 #

Dim fp As Variant
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")

fp = "c:\path\to\folder\"

With Application.FileDialog(msoFileDialogFilePicker)
    .Filters.Clear
    .Filters.Add "无扩展名文件", "*.*", 1 ' 先显示所有文件
    .AllowMultiSelect = False
    .Title = "选择一个无扩展名文件"
    .InitialFileName = fp
    
    If .Show <> -1 Then
        Exit Sub ' 用户取消选择
    End If
    
    fp = .SelectedItems(1)
    ' 验证文件是否无扩展名
    If fso.GetExtensionName(fp) <> "" Then
        MsgBox "请选择无扩展名的文件！", vbExclamation
        Exit Sub
    End If
End With

' 后续处理选中的无扩展名文件
MsgBox "已选中无扩展名文件：" & fp

另一种验证方式（无需FileSystemObject） #

如果不想依赖FileSystemObject，可以手动解析文件名：

' 替换上述代码中的验证部分
Dim fileName As String
fileName = Mid(fp, InStrRev(fp, "\") + 1) ' 提取纯文件名
If InStrRev(fileName, ".") > 0 Then
    MsgBox "请选择无扩展名的文件！", vbExclamation
    Exit Sub
End If

说明 #

Windows原生的文件筛选器语法不支持直接筛选无扩展名文件，因此无法通过FileDialog的Filters参数直接实现精准过滤，必须通过后续验证步骤确保选中文件符合要求。

内容的提问来源于stack exchange，提问作者masher