Filtering VBA

[fth]

Hello,

I would like to filter this search.

there's some folders that it is not necessary.
it begin with "X" or "D" + 5 numbers

Do you have a idea on how to apply this?

many thanks by advance,

Frederic


If (oSubFolder <> "X") Then
For Each oSubFolder In oParentFolder.Subfolders
'Cells(lngR, 1).Value = oSubFolder.Name
Cells(lngR, 1).Value = oSubFolder.Path
lngR = lngR + 1
ListSubFolders oSubFolder, lngR

Next 'oSubFolder
End If
End Function

 

[Per Jessen]

Hi Frederic

Maybe:

If left(oSubFolder.Name,1) <> "X" and left(oSubFolder.Name,1) <> "D" Then

You might need to change .Name to .Path

Regards,
Per