我有一个用于Outlook 2010的vbs模块，它使用Folder.SetCustomIcon更改所选的文件夹图标：
Set folder = GetFolder(FolderPath)
Set myPic = LoadPicture(m_IconPath + FolderColour + ".ico")
If Not (folder Is Nothing) Then
folder.SetCustomIcon myPic
它在启动时自动运行，但偶尔，当我更改受影响的图标/文件夹时，我会手动运行脚本。但是，这仅设置新/更新文件夹的文件夹图标。我也希望将其他文件夹的图标更改回默认值。
在运行新的自定义项之前，重置所选文件夹或理想情况下重置所有文件夹图标会很有用，但我看不到任何明显的方法来执行此操作。
我希望我可以识别一个永远不会更改其文件夹图标的文件夹，然后使用Folder.GetCustomIcon复制标准图标 - 假设这实际上会返回标准图标;它可能只有在图标确实被定制的情况下才有效 - 但不管怎样，它似乎都不优雅。我期待有更直接的方法。
有什么建议吗？