Vbscript 排除vbs中的某些子文件夹

在使用vbs枚举文件夹列表时，我试图删除某些子文件夹 到目前为止，我已经：

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("C:\Users\")
Set colSubfolders = objFolder.Subfolders
For Each objSubfolder in colSubfolders
    wscript.echo objSubfolder.Name  
Next

返回：

所有用户 违约 默认用户 詹姆斯 迈克尔 公开的 西蒙

---

我想为通用文件夹、所有用户、默认值等创建一个exlcusion列表。您需要知道要排除哪些文件夹，然后使用条件语句

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("C:\Users\")
Set colSubfolders = objFolder.Subfolders
For Each objSubfolder in colSubfolders
    If objSubfolder.Name <> "All Users" And objSubfolder.Name <> "Default" _
            And objSubfolder.Name <> "Default User" And objSubfolder.Name <> "Public" Then
        WScript.echo objSubfolder.Name
    End If
Next

Set objFSO=CreateObject（“Scripting.FileSystemObject”）
设置objFolder=objFSO.GetFolder（“C:\Users\”）
设置colSubfolders=objFolder.Subfolders
对于colSubfolders中的每个objSubfolder
如果objSubfolder.Name为“所有用户”且objSubfolder.Name为“默认值”_
和objSubfolder.Name“Default User”和objSubfolder.Name“Public”
WScript.echo objSubfolder.Name
如果结束
下一个