Товарищи, мне требуется осуществить рекурсивный поиск папок (пока без файлов). Можете ли вы положить здесь исходный код (на языке ассемблера, разумеется) с использованием функций Win API FindFirstFile, FindNextFile, FindClose. На Delphi я сделал это вот так: ;======================================================== procedure SearchDir(Dir: string); var FD: _WIN32_FIND_DATAA; FH: THandle; begin FH:=FindFirstFile(PChar(Dir+'*'),FD); if FH <> INVALID_HANDLE_VALUE then repeat if Ord(FD.cFileName[0])<>46 then if (FD.dwFileAttributes = FILE_ATTRIBUTE_DIRECTORY) then begin SearchDir(Dir+Fd.cFileName+'\'); end; until Windows.FindNextFile(FH,FD) = False; end; ;========================================================= А на ассемблер перевести пока не получилось. Заранее благодарен за сотрудничество.
MAPTbIH Вообще топ нужно размещать только в одном разделе. ) Ищи в основном. Я тебе туда 2 исходника скинул. )
