Отправлено: 29.12.15 09:42. Заголовок: Фильтр файлов показываемых в папке

Приветствую !

Открываю папку через ShellExecute. Можно ли сделать фильтр на показ тех или иных
файлов в этой папке ?

 Отправлено: 29.12.15 10:17. Заголовок: наверное нельзя , та..

наверное нельзя , так же как и в проводнике.

 Отправлено: 29.12.15 10:32. Заголовок: А вот такой подход. ..

А вот такой подход. Правда я не понял это визуализация или поиск
http://www.script-coding.com/WSH/Shell.html

Filter(<Flags>,<Filter>)

Назначение: устанавливает для элементов папки фильтр с использованием групповых символов. Возвращаемого значения нет.

Параметры:

<Flags> - набор флагов фильтрации. Некоторые значения (подробнее - см. MSDN):
32 - учитывать папки.
64 - учитывать не папки.
128 - учитывать скрытые элементы.
<Filter> - строка фильтра.

Пример:

Set objShellApp = CreateObject("Shell.Application")
Set objFolder = objShellApp.NameSpace("C:\")
Set objFolderItems = objFolder.Items()
MsgBox "На диске С:\ элементов - " & objFolderItems.Count, vbInformation
objFolderItems.Filter 32+64+128, "*"
MsgBox "На диске С:\ элементов всего (со скрытыми) - " & objFolderItems.Count
objFolderItems.Filter 64+128, "*.sys"
MsgBox "На диске С:\ sys-файлов всего (со скрытыми) - " & objFolderItems.Count
'Такая конструкция скорее всего откроет единственную папку "Program Files".
objFolderItems.Filter 32, "*Files*"
objFolderItems.InvokeVerbEx "explore"