Поиск по маске в VB маленький вопрос

[limp]

В общем недавно только начал писать на vb и не могу понять как осуществлять поиск файлов по нескольким маскам одновременно
Перерыл кучу инфы по fso и ничего толкового не нашел подскажите плз, если это вообще возможно.

[alibek]

Можно разделять их точной с запятой.
Можно собирать результаты нескольких поисков в одну коллекцию или список.
Можно перебирать все файлы и вручную отбирать те, которые соответствуют критериям отбора.
Если скорость не критична, я бы советовал последнее, это самое гибкое.

[SSecurity]

можно например так

Код: Выделить всё

Dim Maska as string, Masks() as string
Dim xFile as File
Dim FoundRes as Integer, J as integer, MaskCnt as Integer


Maska = "*st.xls>*st.doc"   ' > - разделитель (можно любой задать .. главное чтоб в имени файла не встричался)
Masks = split(Maska,">")
MaskCnt = Ubound(Masks)  'берем переменную, чтобы каждый раз не запрашивать размерность массива

For each xFile in FSO.GetFolder(...).Files
  FoundRes = 0
  for J = 0 to MaskCnt
    if xFile.Name like Masks(J) then FoundRes = FoundRes + 1
  Next J
  if FoundRes <> 0 then
    'файл подошел хотябы по одной маске \
    'запоминаем файл куда-либо и продолжаем
    'если переменную FoundRes сделать текстовой,
    'то можно в принципе и номера масок задавать для которых файл подошел   
  end if
Next

[limp]

как можно и так понятно...
хм не обязательно было кусок программы выкладывать меня интересовала "многомасочность" не более, но все равно огромное спасибо=)

что то недопонял про задание номеров масок. можно поподробнее?

[SSecurity]

как можно и так понятно...
хм не обязательно было кусок программы выкладывать меня интересовала "многомасочность" не более, но все равно огромное спасибо=)

что то недопонял про задание номеров масок. можно поподробнее?

это если нужно определить какая из масок подошла - первая, вторая или ещё какая-либо ... просто вместо счета совпавших масок можно дописывать номер маски в массиве, которая совпала

Результат как

Код: Выделить всё

if xFile.Name like Masks(J) then FoundRes = FoundRes + 2^J


при количестве масок до 15 прокатит...

[limp]

ну до 15 вряд ли дойдет, пока использую 4, а потом видно будет, спасибо за помощь