Using an Expression with FSO Get folder

[bdb1974]

Hi all,

In stead of doing the following

      For Each Folder In FSO.GetFolder(DirPath).SubFolders  '& SubFolders)
        If Folder.Name Like Filter Then
          MsgBox Folder.Name

I would like to do something like:

For Each Folder In FSO.GetFolder(DirPath).SubFolders  '& SubFolders)
        If Folder.Name Like ([*41B*] |[*41C*][*29X*][*8HW*])   Filter Then
          MsgBox Folder.Name

Is there anyway to get a folder search for a variable instead a constant?


Thanks,

BDB