VBScript中使用BrowseForFolder选择特定Office文件时出现扩展名错误

你的VBS代码使用Shell.Application.BrowseForFolder并启用&H4000标志（允许选择文件），但选择特定Office文件时报错，核心原因是：选中文件时objFolder.Self指向文件对象，但部分Office文件因锁定机制或Shell COM访问限制，导致读取Self.path触发错误；同时原代码中初始路径参数用字符串"0"也可能引发类型异常。

修改后的代码 #

Dim objShell, objFolder, objItem
Set objShell = CreateObject("Shell.Application")
' &H4000 = BIF_BROWSEINCLUDEFILES，允许选择文件
Set objFolder = objShell.BrowseForFolder(0, "Please select the folder and files", &H4000, 0)

If Not (objFolder Is Nothing) Then
    ' 处理文件选择时的异常情况
    On Error Resume Next
    Set objItem = objFolder.Self
    If Err.Number <> 0 Then
        Err.Clear
        ' 遍历Items获取选中的文件
        For Each objItem In objFolder.Items
            If objItem.IsSelected Then
                Exit For
            End If
        Next
    End If
    On Error GoTo 0

    If Not (objItem Is Nothing) Then
        If objItem.IsFolder Then
            WScript.Echo "Folder: " & objItem.Name
            WScript.Echo "Full Path: " & objItem.Path
        Else
            WScript.Echo "File: " & objItem.Name
            WScript.Echo "Full Path: " & objItem.Path
        End If
    End If
End If

关键修改点 #

• 增加错误捕获：当访问objFolder.Self失败时，自动切换到遍历objFolder.Items获取选中项，避开Office文件的访问限制。
• 区分文件夹/文件：判断选中项类型，分别输出对应信息。
• 修正初始路径参数：将字符串"0"改为数值0（对应桌面起始目录），避免类型错误。

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