VBScript遍历文件夹无法选中文件报错424（对象要求）求助

我懂你遇到的麻烦了——你能顺利遍历文件夹拿到文件名，但调用objFile.Name.Select时弹出“424 对象要求”的错误，这是因为你找错了操作对象：objFile.Name返回的只是字符串类型的文件名，它根本没有Select方法，自然会触发报错。

要在资源管理器里高亮选中指定文件，我们得借助Shell.Application对象来直接操作资源管理器窗口，而不是用FileSystemObject的文件对象硬凑。下面是修正后的可运行代码：

Set objShell = CreateObject("Shell.Application")
Set objFSO = CreateObject("Scripting.FileSystemObject")
strFolderPath = "C:\Users\Desktop\New folder"

' 打开目标文件夹的资源管理器窗口
Set objFolder = objShell.Namespace(strFolderPath)
If Not objFolder Is Nothing Then
    ' 遍历文件夹内的所有文件
    For Each objFile In objFSO.GetFolder(strFolderPath).Files
        MsgBox objFile.Name
        ' 将文件名转换为Shell可识别的文件对象
        Set shellFile = objFolder.ParseName(objFile.Name)
        If Not shellFile Is Nothing Then
            ' 执行高亮选中操作
            shellFile.InvokeVerb("select")
        End If
    Next
End If

关键代码说明： #

• Shell.Application是Windows系统提供的Shell接口，能直接和资源管理器交互，这是实现文件选中的核心。
• objFolder.ParseName(objFile.Name)：把FileSystemObject输出的纯文件名，转换成Shell能识别的文件对象，这个对象才有InvokeVerb("select")方法来实现高亮选中。
• 加入If Not ... Is Nothing的判断，能避免因文件不存在、权限不足等问题引发额外错误。

如果需要一次性选中多个符合条件的文件（比如你代码里提到的包含"Document"的文件），可以用数组存储目标文件对象，再批量选中：

Set objShell = CreateObject("Shell.Application")
Set objFSO = CreateObject("Scripting.FileSystemObject")
strFolderPath = "C:\Users\Desktop\New folder"

Set objFolder = objShell.Namespace(strFolderPath)
If Not objFolder Is Nothing Then
    ReDim selectedFiles(0)
    fileCount = 0
    For Each objFile In objFSO.GetFolder(strFolderPath).Files
        ' 筛选包含"Document"的文件
        If InStr(objFile.Name, "Document") > 0 Then
            Set shellFile = objFolder.ParseName(objFile.Name)
            If Not shellFile Is Nothing Then
                Set selectedFiles(fileCount) = shellFile
                fileCount = fileCount + 1
                ReDim Preserve selectedFiles(fileCount)
            End If
        End If
    Next
    ' 批量选中所有目标文件
    If fileCount > 0 Then
        objFolder.SelectItems selectedFiles
    End If
End If

这样就能精准选中你需要的文件了。

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