| Вопрос: Рекурсивный обход папок (оптимизация) | Добавлено: 17.02.05 07:54 |
Автор вопроса:  ZagZag | ICQ: 295002202 |
| Ответы | Всего ответов: 17 |
|
Номер ответа: 16 Автор ответа:  cresta Вопросов: 117 Ответов: 1538 |
Профиль | | #16 | Добавлено: 19.02.05 09:31 |
| Вообще я так понимаю, API-Guide показывает, как пользоваться функциями, но не как найти файлы. Надо показать, как пользоваться функцией GetFileAttributes - вот и воткнули её сюда, не к месту | ||
|
Номер ответа: 17 Автор ответа: ZagZagICQ: 295002202 Вопросов: 87 Ответов: 1684 |
Профиль | | #17 | Добавлено: 19.02.05 17:55 |
|
cresta, спасибо ОГРОМНОЕ!!!
То что нужно!!! И АПю лишнюю грохнуть можно и Касперский ВООБЩЕ НЕ НАПРЯГАЕТСЯ при обходе папок и скорость заметно увеличилась! Патчик к моему коду: Private Sub InterateObject(Source As String)
Dim objName As String Dim hSearch As Long Dim WFD As WIN32_FIND_DATA Dim Cont As Integer Cont = True hSearch = FindFirstFile(Source & "*", WFD) If hSearch <> INVALID_HANDLE_VALUE Then Do While Cont objName = Left(WFD.cFileName, InStr(WFD.cFileName, Chr(0)) - 1) If objName <> "." And objName <> ".." Then If (WFD.dwFileAttributes And FILE_ATTRIBUTE_DIRECTORY) = 0 Then List1.AddItem Source & objName Else InterateObject Source & objName & "\" End If End If Cont = FindNextFile(hSearch, WFD) Loop Cont = FindClose(hSearch) End If End Sub Проблема решена. Тему считаю закрытой, всем спасибо! |
||