VBScript按文件名移动文件至子文件夹报错：Object Required

原脚本出现"Object Required"错误，核心问题是混淆了字符串路径和FileSystemObject的Folder对象，同时存在变量未初始化、语法错误等问题，以下是修复后的完整脚本及问题解析：

问题解析 #

1. Folder对象未正确初始化：原脚本中folder = strFolder只是将文件夹路径字符串赋值给folder变量，但folder需要是FileSystemObject的Folder对象才能调用.files集合，必须用Set关键字赋值。
2. currentFolder变量未赋值：构建子文件夹路径时使用了未初始化的currentFolder，导致路径无效。
3. 通配符误用在InStr函数：gFile = "*GLOBAL.xlsx"这类带通配符的字符串不适合用InStr（该函数用于查找子字符串），应直接匹配文件名中的关键词，或用Like运算符处理通配符。
4. 循环中未定义item变量：移动文件时使用了未声明的item，应改为当前循环的file对象的路径。
5. 重复遍历文件集合：两次遍历.files集合可能导致文件移动后集合变化，建议合并为一次遍历。

修复后的完整脚本 #

'Script to move different files into different subfolders based on whether their name contains "Global" or "Profile"
'Script by Simon Barrett
'03/07/2025

'Instructions: Copy this script into whichever folder where you want to organise all the files into their respective folders
Option Explicit ' ALWAYS use Option Explicit!

Dim fso, folder, file
Dim strFolder, newFolderName1, newFolderName2
Dim gKeyword, pKeyword

Set fso = CreateObject("Scripting.FileSystemObject")
' 获取脚本所在文件夹的路径（字符串）
strFolder = fso.GetParentFolderName(WScript.ScriptFullName)
' 将字符串路径转换为Folder对象
Set folder = fso.GetFolder(strFolder)

' 定义子文件夹名称和关键词
newFolderName1 = fso.BuildPath(strFolder, "Global")
newFolderName2 = fso.BuildPath(strFolder, "Profile")
gKeyword = "GLOBAL"
pKeyword = "PROFILE"

' 创建子文件夹（不存在则创建）
If Not fso.FolderExists(newFolderName1) Then
    fso.CreateFolder(newFolderName1)
End If

If Not fso.FolderExists(newFolderName2) Then
    fso.CreateFolder(newFolderName2)
End If

' 遍历文件夹内所有文件，一次完成分类移动
For Each file In folder.Files
    ' 忽略脚本自身文件
    If Not fso.GetFileName(file.Path) = WScript.ScriptName Then
        ' 判断文件名是否包含GLOBAL（忽略大小写）
        If InStr(1, UCase(file.Name), gKeyword, vbTextCompare) > 0 Then
            fso.MoveFile file.Path, fso.BuildPath(newFolderName1, file.Name)
        ' 判断文件名是否包含PROFILE（忽略大小写）
        ElseIf InStr(1, UCase(file.Name), pKeyword, vbTextCompare) > 0 Then
            fso.MoveFile file.Path, fso.BuildPath(newFolderName2, file.Name)
        End If
    End If
Next

' 通知用户操作完成
MsgBox "Folders Created and files moved!"

关键修复说明 #

• 正确初始化Folder对象：通过Set folder = fso.GetFolder(strFolder)将字符串路径转为可操作的Folder对象，解决.files集合调用的"Object Required"错误。
• 替换通配符为关键词匹配：用InStr配合UCase和vbTextCompare实现不区分大小写的关键词查找，避免通配符误用。
• 合并文件遍历：一次遍历完成所有文件的分类，避免因文件移动导致集合变化引发的异常。
• 忽略脚本自身：添加判断避免脚本文件被误移动。
• 规范路径构建：用fso.BuildPath替代手动拼接路径，避免因系统路径分隔符差异导致的错误。

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