특정 또는 공백으로 시작하는 폴더 이름을 제외하십시오.

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