特定のフォルダ名から除外するフォルダ名を除外

Question

特定のフォルダ名を除外したこのコードが見つかりましたが、「開始」というフォルダ名に基づいて除外する必要があります。

（例admin％）どうやってそのように書き直すのですか？

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 

Answer 1

これが必要なのかどうかを確認してください。

Set objFSO = CreateObject("Scripting.FileSystemObject") 
Set objFolder = objFSO.GetFolder("C:\Users\") 
Set colSubfolders = objFolder.Subfolders 
For Each objSubfolder in colSubfolders 
    If InStr(1,objSubfolder.Name, "admin") <= 0 Then 
     WScript.echo objSubfolder.Name 
    End If 
Next 

上記のスクリプトは、管理で始まるか管理を含むすべてのフォルダを除外する必要があります。それは大文字と小文字を区別します。大文字と小文字を区別しないようにする必要がある場合は、以下のスクリプトを使用してください。

Set objFSO = CreateObject("Scripting.FileSystemObject") 
Set objFolder = objFSO.GetFolder("C:\Users\") 
Set colSubfolders = objFolder.Subfolders 
For Each objSubfolder in colSubfolders 
    If InStr(1,objSubfolder.Name, "admin",1) <= 0 Then 
     WScript.echo objSubfolder.Name 
    End If 
Next