-=-=-=高效的列出目录及文件=-=-=-

haohello

窗体上添加一个按钮(Command1)和一个列表框(List1)

1. Option Explicit
   
2. Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByRef lParam As Any) As Long
   
3. Private Declare Function SetCurrentDirectory Lib "kernel32.dll" Alias "SetCurrentDirectoryA" (ByVal lpPathName As String) As Long
   
4. 
   
5. Private Const DDL_ARCHIVE As Long = &H20        '存档文件
   
6. Private Const DDL_SYSTEM As Long = &H4          '系统文件
   
7. Private Const DDL_READWRITE As Long = &H0       '包括读写文件，没有额外的属性。这是默认设置。
   
8. Private Const DDL_READONLY As Long = &H1        '只读文件
   
9. Private Const DDL_POSTMSGS As Long = &H2000     '
   
10. Private Const DDL_HIDDEN As Long = &H2          '隐藏文件
    
11. Private Const DDL_EXCLUSIVE As Long = &H8000    '
    
12. Private Const DDL_DRIVES As Long = &H4000
    
13. Private Const DDL_DIRECTORY As Long = &H10      '目录
    
14. 
    
15. Private Const LB_DIR As Long = &H18D
    
16. 
    
17. Const DIRATTR = DDL_ARCHIVE Or _
    
18.                 DDL_SYSTEM Or _
    
19.                 DDL_READWRITE Or _
    
20.                 DDL_READONLY Or _
    
21.                 DDL_POSTMSGS Or _
    
22.                 DDL_HIDDEN Or _
    
23.                 DDL_EXCLUSIVE Or _
    
24.                 DDL_DIRECTORY
    
25. 
    
26. Private Sub Command1_Click()
    
27.     Dim s$
    
28.     List1.Clear
    
29.     SetCurrentDirectory "C:\Windows\System32"
    
30.     s$ = "*.*"
    
31.     SendMessage List1.hwnd, LB_DIR, DIRATTR, ByVal s$
    
32. End Sub
    

复制代码

jay36

8错的方法！

twccad

用SendMessage我最喜欢了,既简单又实用非常不错.

zdingyun

看了LZ的代码，不错！学到一招。

VB妮可

呵呵..谁能再一次完善整理..这些消息以及实用技巧就更好了..

wsboy

不错，速度超快

阿杰

不错，又学了个方法

wajika

装了某些杀毒软件后如果C盘文件多就会卡

hovidelphic

不比直接使用nt系列的函数效率高吧？

jsyzch

好贴就要顶，看不懂，下了学习