排除以某個開頭或包含某些文件夾名稱的文件夾名稱

-1

我發現此代碼排除了特定的文件夾名稱，但我需要根據「以......開頭」的文件夾名稱排除該文件。排除以某個開頭或包含某些文件夾名稱的文件夾名稱

（示例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

來源

2016-07-26 kamon123

歡迎來到Stack Overflow！我儘可能地猜測你的問題，然後編輯你的問題。但是，添加對代碼和描述的解釋，以便更多具有該主題知識的人員可以看到它。如果需要識別特定問題，請編輯您遇到的特定錯誤消息。祝你好運！ – manetsus

請檢查這是否是您需要的。

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

來源

2016-07-26 14:40:01

排除以某個開頭或包含某些文件夾名稱的文件夾名稱

回答

相關問題