исключая определенные подпапки в VBS

Question

Я пытаюсь исключить некоторые подпапки при перечислении списка папок с помощью 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

, который возвращает:

Все пользователи По умолчанию Пользователь по умолчанию Джеймс Майкл общественного симон

Я хотел бы создать список исключений для общих папок, Все пользователи, По умолчанию и т. Д.

Answer 1

Вам необходимо знать, какие из них нужно исключить, а затем использовать условный оператор.

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