VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
查看: 4330|回复: 13

[推荐] -=-=-=高效的列出目录及文件=-=-=-

[复制链接]
 楼主| 发表于 2009-5-26 01:07:10 | 显示全部楼层 |阅读模式
窗体上添加一个按钮(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. Private Const DDL_ARCHIVE As Long = &H20        '存档文件
  5. Private Const DDL_SYSTEM As Long = &H4          '系统文件
  6. Private Const DDL_READWRITE As Long = &H0       '包括读写文件,没有额外的属性。这是默认设置。
  7. Private Const DDL_READONLY As Long = &H1        '只读文件
  8. Private Const DDL_POSTMSGS As Long = &H2000     '
  9. Private Const DDL_HIDDEN As Long = &H2          '隐藏文件
  10. Private Const DDL_EXCLUSIVE As Long = &H8000    '
  11. Private Const DDL_DRIVES As Long = &H4000
  12. Private Const DDL_DIRECTORY As Long = &H10      '目录

  13. Private Const LB_DIR As Long = &H18D

  14. Const DIRATTR = DDL_ARCHIVE Or _
  15.                 DDL_SYSTEM Or _
  16.                 DDL_READWRITE Or _
  17.                 DDL_READONLY Or _
  18.                 DDL_POSTMSGS Or _
  19.                 DDL_HIDDEN Or _
  20.                 DDL_EXCLUSIVE Or _
  21.                 DDL_DIRECTORY

  22. Private Sub Command1_Click()
  23.     Dim s$
  24.     List1.Clear
  25.     SetCurrentDirectory "C:\Windows\System32"
  26.     s$ = "*.*"
  27.     SendMessage List1.hwnd, LB_DIR, DIRATTR, ByVal s$
  28. End Sub
复制代码

评分

参与人数 5威望 +26 人气 +5 收起 理由
ToVBGood + 5 + 2 不错的方法,学习了
xwei9277 + 5 发布源码 能做成目录树就更好了!
VB妮可 + 2 + 1 嗯,把list升级成了filelist了
zdingyun + 4 + 2 发布源码
startbin321 + 10 第一次看到这种方式

查看全部评分

发表于 2009-5-26 07:26:05 | 显示全部楼层
8错的方法!
回复 支持 反对

使用道具 举报

发表于 2009-5-26 08:11:51 | 显示全部楼层
用SendMessage我最喜欢了,既简单又实用非常不错.
回复 支持 反对

使用道具 举报

发表于 2009-5-26 08:20:40 | 显示全部楼层
看了LZ的代码,不错!学到一招。
回复 支持 反对

使用道具 举报

发表于 2009-5-26 14:44:49 | 显示全部楼层
呵呵..谁能再一次完善整理..这些消息以及实用技巧就更好了..
回复 支持 反对

使用道具 举报

发表于 2009-5-26 17:00:46 | 显示全部楼层
不错,速度超快

评分

参与人数 1威望 +2 收起 理由
xwei9277 + 2 发布源码

查看全部评分

回复 支持 反对

使用道具 举报

发表于 2009-5-28 09:30:11 | 显示全部楼层
不错,又学了个方法
回复 支持 反对

使用道具 举报

发表于 2009-5-28 09:35:33 | 显示全部楼层
装了某些杀毒软件后如果C盘文件多就会卡
回复 支持 反对

使用道具 举报

发表于 2009-5-28 09:47:19 | 显示全部楼层
不比直接使用nt系列的函数效率高吧?
回复 支持 反对

使用道具 举报

发表于 2009-5-29 19:47:45 | 显示全部楼层
好贴就要顶,看不懂,下了学习
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

文字版|手机版|小黑屋|VBGood  

GMT+8, 2022-6-29 20:18

VB爱好者乐园(VBGood)
快速回复 返回顶部 返回列表