【asm】遍历目录以及子目录所有文件 - 非递归

Ayala

1. 
   
2. fdata struc
   
3.         h dword ?
   
4.         n dword ?
   
5.         k dword ?
   
6. 
   
7. fdata ends
   
8. 
   
9. llist struc
   
10.         _next  dword ?
    
11.         _last  dword ?
    
12.         _data  fdata <>
    
13. llist ends
    
14. 
    
15. 
    
16. .code
    
17. 
    
18. 
    
19. Dirtrav proc uses esi edi ebx fdir,fcallback,fcontext
    
20.         LOCAL fd1:WIN32_FIND_DATA
    
21.         LOCAL dp:llist
    
22.         LOCAL dir[MAX_PATH*2]:word
    
23.         LOCAL curDir[MAX_PATH]:word
    
24.        
    
25. 
    
26.         lea edi,fd1
    
27.         assume edi:ptr WIN32_FIND_DATA
    
28.         invoke GetCurrentDirectory,MAX_PATH,addr curDir
    
29.        
    
30.        
    
31.         mov ebx,fdir
    
32.         invoke SetCurrentDirectory,ebx
    
33.         invoke FindFirstFile,$CTA0(".\\*"),edi
    
34.        
    
35.        
    
36.         lea ebx,dp
    
37.         assume ebx:ptr llist
    
38.         mov [ebx]._next,0
    
39.         mov [ebx]._last,0
    
40.         mov [ebx]._data.h,eax
    
41.        
    
42.         .while [ebx]._data.h!=INVALID_HANDLE_VALUE
    
43.                 mov esi,[ebx]._data.h
    
44.                 mov eax,fcallback
    
45.                 .if eax
    
46.                         PROTO@8 TYPEDEF PROTO STDCALL :DWORD,:DWORD
    
47.                         invoke (PROTO@8 ptr eax),edi,fcontext
    
48.                         .break .if eax       
    
49.                 .endif
    
50.                 mov eax,dword ptr [edi].cFileName
    
51.                 and eax,0FFFFFFh               
    
52.                 .if [edi].dwFileAttributes==FILE_ATTRIBUTE_DIRECTORY && eax!=".." && ax!="."
    
53.                        
    
54.                         invoke crt_malloc,sizeof dp
    
55.                         .if !eax
    
56.                                 jmp done
    
57.                         .endif
    
58.                         assume eax:ptr llist
    
59.                         mov [eax]._next,0
    
60.                         mov [eax]._last,ebx
    
61.                         mov [ebx]._next,eax
    
62.                         mov ebx,eax
    
63.                         assume eax:ptr nothing
    
64.                        
    
65.                         invoke SetCurrentDirectory,addr [edi].cFileName
    
66.                         invoke FindFirstFile,$CTA0(".\\*"),edi
    
67.                         mov [ebx]._data.h,eax
    
68.                 .else
    
69.                         invoke FindNextFile,esi,edi
    
70.                         .if !eax
    
71.                                 invoke FindClose,esi
    
72.                                 mov ebx,[ebx]._last
    
73.                                 .break .if !ebx
    
74.                                 invoke crt_free,[ebx]._next
    
75.                                 ;invoke crt_system,$CTA0("PAUSE")
    
76.                                 invoke SetCurrentDirectory,$CTA0("..\")
    
77.                         .endif
    
78.                 .endif
    
79.         .endw
    
80. done:
    
81.         .while ebx
    
82.                 invoke crt_free,[ebx]._next
    
83.                 mov ebx,[ebx]._last
    
84.         .endw
    
85.         invoke SetCurrentDirectory,addr curDir
    
86.         assume edi:nothing
    
87.         xor eax,eax
    
88.         ret
    
89. Dirtrav endp
    

复制代码

besteast