Форум » [x]Harbour » Фильтр файлов показываемых в папке » Ответить
Фильтр файлов показываемых в папке
fil: Приветствую ! Открываю папку через ShellExecute. Можно ли сделать фильтр на показ тех или иных файлов в этой папке ?
Ответов - 2
Dima: наверное нельзя , так же как и в проводнике.
fil: А вот такой подход. Правда я не понял это визуализация или поиск 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"
полная версия страницы