Vbscript 子文件夹。项（I）给出错误代码800A0005 Runtimeerror无效过程调用

我创建了一个vbs示例来说明我的问题

在我工作的开发环境中，我没有可用的“每个”结构。因此，我必须使用“item”——迭代

ShowFolderList1工作正常，但ShowFolderList2会生成错误

你能帮我纠正语法吗

ShowFolderList1（“C:\Windows”）显示指定目录中的文件夹列表。 ShowFolderList2（“C:\Windows”）在“F1=FOL.SubFolders.Item（i）”处给出错误代码800A0005 Runtimeerror无效过程调用

子ShowFolderList1（folderspec）

端接头

子ShowFolderList2（folderspec）

---

末端接头

因为F1应容纳一个物体

F1 = FOL.SubFolders.Item(i)

应该是

Set F1 = FOL.SubFolders.Item(i)

仔细想想：

错误的真正原因是：文件夹对象没有

项

方法。您不能随机遍历文件夹，只能通过

对每个文件夹进行遍历

F1 = FOL.SubFolders.Item(i)

Set F1 = FOL.SubFolders.Item(i)