format PE GUI 4.0 ; PE EXE файл entry start ; Точка входа
include 'win32a.inc'
section '.main' code readable writeable executable ; Секция кода ; и данных
buf rb 500h ; Буффер для имени директории
fake1 dd '.',0 ; Дирекории, которые fake2 dd '..',0 ; НЕ надо сканировать
start: ; Начало основной ; Программы
push 1h ; SEM_FAILCRITICALERRORS call [SetErrorMode] ; Установим error mode ; что бы в случае обращения ; к недоступному диску ; не вываливалось сообщение
call [GetLogicalDrives] ; Получаем список дисков, ; существующих в системе
mov ecx,25 ; Будем проверять, начиная с Z:\
.find_drives: mov ebx,1 ; Нехитрые опрерации в shl ebx,cl ; ходе которых мы выясняем and ebx,eax ; присутствует диск в je .no_disk ; системе или нет
add cl,65 ; Если да, то добавим mov byte [buf],cl ; букву диска в sub cl,65 ; буффер
mov dword [buf+1],':\*.' ; Сформируем строку mov byte [buf+5],'*' ; для поиска, вида, mov byte [buf+6],0 ; например, C:\*.*
locals ; Локальные переменные: fd WIN32_FIND_DATA ; структура WIN32_FIND_DATA find_h dd ? ; и хэндл поиска endl
lea eax,[fd] ; Вычисляем и кладем в стек push eax ; указатель на стуктуру find data push buf ; Указатель на имя директории, где искать call [FindFirstFile] ; Ищем inc eax ; Если ничего je .exit ; не нашли - выходим dec eax ; Иначе, сохраним mov [find_h],eax ; хэндл поиска
.find_next: mov eax,[fd.dwFileAttributes] ; Проверяем, нашли and eax,FILE_ATTRIBUTE_DIRECTORY ; директорию? je .found ; Если нет - прыгаем на .found
lea eax,[fd.cFileName] ; Проверяем, push eax ; вдруг это push fake1 ; "." call [lstrcmp] ; test eax,eax ; Если да, je .next ; ищем следующий файл
lea eax,[fd.cFileName] ; Проверяем, push eax ; вдруг это push fake2 ; ".." call [lstrcmp] ; test eax,eax ; Если да je .next ; ищем следующий файл
push buf ; Вычислим call [lstrlen] ; длину строки sub eax,3 ; вычтем *.* push eax ; сохраним полученную длину
mov byte [buf+eax],0 ; Если мы всё-таки lea eax,[fd.cFileName] ; нашли директорию push eax ; то прибавляем push buf ; её имя к текущей call [lstrcat] ; папке
push buf ; Опять вычислим call [lstrlen] ; длину получившейся строки
mov dword [buf+eax],'\*.*' ; и прибавим mov byte [buf+eax+4],0 ; \*.* для поиска
pop eax ; Восстановим mov dword [buf+eax-1],'\*.*' ; имя прежней mov byte [buf+eax+3],0 ; директории
jmp .next ; Ищем следующий файл
.found:
lea eax,[fd.cFileName] push eax call [lstrlen] cmp dword [fd.cFileName+eax-4],'.iso' ; Проверим расширение файла jne .next ; Если не совпадает ищем дальше
call [MessageBox] .next: lea eax,[fd] ; Кладем в стек указатель push eax ; на структуру find_data push [find_h] ; Хэндл текущего поиска call [FindNextFile] ; Ищем следующий файл test eax,eax ; jne .find_next ; Если ничего не нашли,
push [find_h] ; то закрываем call [FindClose] ; хэндл поиска
Молодец,только назыай темы нормально.Что за рекурсивный обход? Если это рекурсивный поиск файлов,то так и назови тему. P.S так что тему переименовываю.
