include 'win32ax.inc'

.data
filemask   db '*',0
updir       db '..',0
FD       WIN32_FIND_DATA

.code
find_first:
  push   ebx
  invoke FindFirstFile,filemask,FD
    cmp    eax,INVALID_HANDLE_VALUE
     je     back
 mov    ebx, eax
output:
      invoke MessageBox,0,FD.cFileName,FD.dwFileAttributes,MB_OK
  test   [FD.dwFileAttributes], FILE_ATTRIBUTE_DIRECTORY
      jnz     find_next
   invoke SetCurrentDirectory, FD.cFileName
    jmp    find_first
find_next:
 invoke FindNextFile,ebx,FD
  test   eax, eax
     jnz    output
       invoke FindClose, ebx
back:
  pop    ebx
  cmp    esp,ebp
      jnb    exit
 invoke SetCurrentDirectory, updir
   jmp    find_next
exit:
       invoke ExitProcess,0
.end find_first    

include 'win32ax.inc'

.data
buf     rb 500h
filepath   db 'c:\temp',0
allfiles   db '\*.*',0
cudir      db '.',0
updir      db '..',0
wfd    WIN32_FIND_DATA
;hfile  dd ?

.code
start:
        invoke lstrcat, buf, filepath
        invoke lstrcat, buf, allfiles
        call   find_files
        invoke ExitProcess,0

proc    find_files
    locals
        hfile  dd ?
    endl
        invoke FindFirstFile,buf,wfd
        cmp    eax,INVALID_HANDLE_VALUE
        je     exit
        mov    [hfile], eax
check:
        test   [wfd.dwFileAttributes],FILE_ATTRIBUTE_DIRECTORY
        jz     found
        invoke lstrcmp, cudir, wfd.cFileName
        test   eax,eax
        je     next
        invoke lstrcmp, updir, wfd.cFileName
        test   eax,eax
        je     next
        invoke lstrlen, buf
        sub    eax,3
        push   eax
        mov    byte [buf+eax],0
        invoke lstrcat, buf, wfd.cFileName
        invoke lstrlen, buf
        mov    dword [buf+eax],'\*.*'
        mov    byte [buf+eax+4],0
        call   find_files
        pop    eax
        mov    dword [buf+eax-1],'\*.*'
        mov    byte [buf+eax+3],0
        jmp    next
found:
        invoke MessageBox,0,wfd.cFileName,0,MB_OK
next:
        invoke FindNextFile,[hfile],wfd
        test   eax,eax
        jne    check
        invoke FindClose, [hfile]
exit:
        ret
endp
.end start