微信公众号搜"智元新知"关注
微信扫一扫可直接关注哦!

防止 VBScript 文件夹循环遍历新创建的文件夹

如何解决防止 VBScript 文件夹循环遍历新创建的文件夹

我有一个简单的循环,它遍历目录中的所有文件夹,如果某个条件为真,它会创建一个具有新文件名称文件夹副本。

我的问题是,在创建新文件夹后,它会在稍后的循环中进行处理,而我不希望那样。

循环正在检查文件名称,如果长度为 7、6 或 5 个字符,则执行某个操作。一个 7 位长度的文件夹被重命名一个 6 位文件夹,但稍后在循环中新的 6 位文件夹被包含并进一步处理。我不要这个。

谢谢

解决方法

我最终使用 Dictionary 对象来保存原始文件夹列表,然后在继续之前检查该列表中是否存在循环文件夹。

Set FSO = CreateObject("Scripting.FileSystemObject")
Set startingSubFoldColl = CreateObject("Scripting.Dicitonary")

Set Folder = FSO.GetFolder(*targetFolderPath*)

For Each Subfolder in Folder.Subfolders
startingSubFoldColl.add Cstr(Subfolder),Cstr(Subfolder)
Next

For Each SubFolder in Folder.Subfolders
If startingSubFoldColl.Exists(Cstr(Subfolder)) Then
'Do Stuff
End If
Next

版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。