Можно ли через FindFirstFile перебрать только папки?

[Pantalone]

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

[tyomitch]

FindExSearchLimitToDirectories

[Pantalone]

Спасибо, попробую. Читал просто что эта штука не работает под 98 виндой и на фате 32.

[Pantalone]

Осталось только выяснить как будут на бэйсике выглядеть эти конструкции:

typedef enum _FINDEX_INFO_LEVELS {
FindExInfoStandard,
FindExInfoMaxInfoLevel
} FINDEX_INFO_LEVELS;

typedef enum _FINDEX_SEARCH_OPS {
FindExSearchNameMatch,
FindExSearchLimitToDirectories,
FindExSearchLimitToDevices,
FindExSearchMaxSearchOp
} FINDEX_SEARCH_OPS;

В инете вообще голяк.

[tyomitch]

Осталось только выяснить как будут на бэйсике выглядеть эти конструкции:

typedef enum _FINDEX_INFO_LEVELS {
FindExInfoStandard,
FindExInfoMaxInfoLevel
} FINDEX_INFO_LEVELS;

typedef enum _FINDEX_SEARCH_OPS {
FindExSearchNameMatch,
FindExSearchLimitToDirectories,
FindExSearchLimitToDevices,
FindExSearchMaxSearchOp
} FINDEX_SEARCH_OPS;

В инете вообще голяк.

Ну просто ооочень нетривиально перевести:

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

Enum FINDEX_INFO_LEVELS
FindExInfoStandard
FindExInfoMaxInfoLevel
End Enum

Enum FINDEX_SEARCH_OPS
FindExSearchNameMatch
FindExSearchLimitToDirectories
FindExSearchLimitToDevices
FindExSearchMaxSearchOp
End Enum


[Pantalone]

tyomitch
Пока ты тут, подскажи если знаешь где значения этих констант взять? Которые в перечислении?

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

Enum FINDEX_INFO_LEVELS
FindExInfoStandard = ?
FindExInfoMaxInfoLevel = ?
End Enum

Должно же так быть как-то?
Я с перечислениями мало работал, не соображу как подъехать.

[GSerg]

Pantalone
Если ты не понял, тебе дали готовый код.

[Pantalone]

Последний глупый вопрос на сегодня надеюсь, как это хозяйство объявить в бэйсике?

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

HANDLE FindFirstFileEx(  LPCTSTR lpFileName,
  FINDEX_INFO_LEVELS fInfoLevelId,
  LPVOID lpFindFileData,
  FINDEX_SEARCH_OPS fSearchOp,
  LPVOID lpSearchFilter,
  DWORD dwAdditionalFlags
);

В смысле

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

Declare ...

[GSerg]

http://bbs.vbstreets.ru/viewtopic.php?t=11721
или
http://www.google.ru/search?hl=ru&q=Dec ... FileEx&lr=

[Pantalone]

GSerg
Спасибо!

[Pantalone]

Правда эта функция все равно перебирает и папки и файлы и это занимает тучу времени. Если например у меня 2 папки и 50000 файлов, чтобы вывести инфу об этих папках, мне нужно сначала отыскать их среди файлов, т.е. это полный перебор и куча времени.
Вероятно так и должно быть, в мсдн написано что FindExSearchLimitToDirectories reserved for future.

[alibek]

А чем, по твоему, файлы отличаются от каталогов?
И как ты предлагаешь осуществлять поиск по атрибутам в неупорядоченном множестве, кроме как перебором?

[vvs_adm]

tyomitch
Пока ты тут, подскажи если знаешь где значения этих констант взять? Которые в перечислении?

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

Enum FINDEX_INFO_LEVELS
FindExInfoStandard = ?
FindExInfoMaxInfoLevel = ?
End Enum

Должно же так быть как-то?
Я с перечислениями мало работал, не соображу как подъехать.

Слушай, а правда, ты рисовать не пробовал? Или стихи писать? Вдруг получится. Там не нужно знать, что такое перечисления. Там если не в рифму, или не в размер, или орфографическая ошибка - то авторский стиль...

Я с перечислениями мало работал,

Т.е. ты хочешь сказать, что ты работал с перечислениями, хоть и мало, но не знаешь, чему равны "констант"ы, которые "в перечислении"?

[Pantalone]

Я с перечислениями мало работал,

Т.е. ты хочешь сказать, что ты работал с перечислениями, хоть и мало, но не знаешь, чему равны "констант"ы, которые "в перечислении"?

У меня на винте масса примеров которыми я руководствуюсь как хелпом. Во многих примерах я видел непосредственную нумерацию в этих перечислениях, чем и обусловлен вопрос. Так что не стоит ехидничать.

Если ты не знал о произвольной нумерации, можешь изучить вопрос:
http://msdn2.microsoft.com/en-us/library/8h84wky1.aspx

Пример оттуда:

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

Enum filePermissions
    create = 1
    read = 2
    write = 4
    delete = 8
End Enum

[vvs_adm]

У меня на винте масса примеров которыми я руководствуюсь как хелпом.

Рекомендую купить любую книжку по VB и спользовать ее первым источником "хелпа". А лучше ее сначала просто всю прочитать. Про перечисления там должно быть. Если нет возможности купить книжку и нет интернета, где можно открыть яндекс и ввести Visual Basic enum, то можно выполнить следующий код

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

Option Explicit

Private Enum MyEnum
    e1
    e2
    e3
    e4
    e5
End Enum

Private Sub Form_Load()
    Debug.Print e1
    Debug.Print e2
    Debug.Print e3
    Debug.Print e4
End Sub

и самому угадать значение константы e5