阿杰 发表于 2009-5-28 09:31:06

【开源】高效的列出目录及文件

<p>窗体上添加一个按钮(Command1)和一个列表框(List1)</p>
<p>&nbsp;</p>
<p><font color="#333399" face="Verdana">Option Explicit<br/>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<br/>Private Declare Function SetCurrentDirectory Lib "kernel32.dll" Alias "SetCurrentDirectoryA" (ByVal lpPathName As String) As Long</font></p>
<p><font color="#333399" face="Verdana">Private Const DDL_ARCHIVE As Long = &amp;H20&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '存档文件<br/>Private Const DDL_SYSTEM As Long = &amp;H4&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '系统文件<br/>Private Const DDL_READWRITE As Long = &amp;H0&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '包括读写文件，没有额外的属性。这是默认设置。<br/>Private Const DDL_READONLY As Long = &amp;H1&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '只读文件<br/>Private Const DDL_POSTMSGS As Long = &amp;H2000&nbsp;&nbsp;&nbsp;&nbsp; '<br/>Private Const DDL_HIDDEN As Long = &amp;H2&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '隐藏文件<br/>Private Const DDL_EXCLUSIVE As Long = &amp;H8000&nbsp;&nbsp;&nbsp; '<br/>Private Const DDL_DRIVES As Long = &amp;H4000<br/>Private Const DDL_DIRECTORY As Long = &amp;H10&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '目录</font></p>
<p><font color="#333399" face="Verdana">Private Const LB_DIR As Long = &amp;H18D</font></p>
<p><font color="#333399" face="Verdana">Const DIRATTR = DDL_ARCHIVE Or _<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; DDL_SYSTEM Or _<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; DDL_READWRITE Or _<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; DDL_READONLY Or _<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; DDL_POSTMSGS Or _<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; DDL_HIDDEN Or _<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; DDL_EXCLUSIVE Or _<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; DDL_DIRECTORY</font></p>
<p><font color="#333399" face="Verdana">Private Sub Command1_Click()<br/>&nbsp;&nbsp;&nbsp; Dim s$<br/>&nbsp;&nbsp;&nbsp; List1.Clear<br/>&nbsp;&nbsp;&nbsp; SetCurrentDirectory "C:\Windows\System32"<br/>&nbsp;&nbsp;&nbsp; s$ = "*.*"<br/>&nbsp;&nbsp;&nbsp; SendMessage List1.hwnd, LB_DIR, DIRATTR, ByVal s$<br/>End Sub</font></p>
<p><font face="Verdana"></font>&nbsp;</p>

马大哈 发表于 2009-5-28 14:00:11

<p>这个有意思!</p>
<p>&nbsp;</p>
<p>顶了!</p>

everyone 发表于 2009-7-13 20:05:14

可以列出隐藏和系统文件哦，我想找了很久了！哈哈。终于找到！！谢谢！！

jixu2008 发表于 2009-7-16 23:00:39

是很不错，呵呵。
页: [1]
查看完整版本: 【开源】高效的列出目录及文件