使用FSO获取子文件夹集合后，无法通过索引访问特定文件夹的问题

为什么索引访问无效？ #

• FSO的SubFolders返回的Folders集合是无序的枚举型集合，不支持数字索引（比如(1)或.Item(1)）访问。这个集合的Item方法仅接受文件夹名称字符串作为参数，而非数字位置。
• 集合的遍历顺序由系统决定，没有固定排序逻辑，数字索引本身也不具备实际意义。

正确处理方式 #

1. 通过文件夹名称直接定位 #

如果已知目标文件夹的名称，可直接用名称作为键访问：

Set targetFolder = objFolders("目标文件夹名称")

2. 遍历集合筛选目标 #

若不知道具体名称，可遍历所有子文件夹，根据自定义条件（如名称、创建时间）筛选：

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolders = objFSO.GetFolder(test).SubFolders

' 遍历子文件夹集合
For Each folder In objFolders
    ' 自定义判断条件，这里以匹配名称为例
    If folder.Name = "要查找的文件夹" Then
        Set targetFolder = folder
        Exit For ' 找到后终止遍历
    End If
Next

' 验证是否找到目标
If IsObject(targetFolder) Then
    WScript.Echo "找到目标：" & targetFolder.Path
Else
    WScript.Echo "未找到指定文件夹"
End If

3. 转为数组实现索引访问 #

如果需要按固定顺序（如名称排序）访问，可先将集合存入数组，再通过数字索引操作：

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolders = objFSO.GetFolder(test).SubFolders

' 将集合转为数组
ReDim folderArr(objFolders.Count - 1)
i = 0
For Each folder In objFolders
    Set folderArr(i) = folder
    i = i + 1
Next

' 对数组按名称排序（可选）
SortFoldersByName folderArr

' 通过数字索引访问
Set targetFolder = folderArr(0) ' 取第一个元素

' 按名称排序的辅助函数
Sub SortFoldersByName(arr)
    Dim i, j, temp
    For i = 0 To UBound(arr) - 1
        For j = i + 1 To UBound(arr)
            If UCase(arr(i).Name) > UCase(arr(j).Name) Then
                Set temp = arr(i)
                Set arr(i) = arr(j)
                Set arr(j) = temp
            End If
        Next
    Next
End Sub

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