用API函数遍历指定驱动器、目录的文件

.hWndOwner = Me.hWnd
'返回选中的目录
.ulFlags = BIF_RETURNONLYFSDIRS
End With

'调出浏览窗口
lpIDList = SHBrowseForFolder(udtBI)
If lpIDList Then
sPath = String$(MAX_PATH, 0)
'获取路径
SHGetPathFromIDList lpIDList, sPath
'释放内存
CoTaskMemFree lpIDList
iNull = InStr(sPath, VBNullChar)
If iNull Then
sPath = Left$(sPath, iNull - 1)
End If
End If

Screen.MousePointer = vbHourglass
List1.Clear
SearchPath = sPath '选中的目录为搜索的起始路径
FindStr = "*.*" '搜索所有类型的文件(此处可另作定义)
FileSize = FindFilesAPI(SearchPath, FindStr, NumFiles, NumDirs)
Text1.Text = "查找到的文件数：" & NumFiles & vbCrLf & "查找的目录数：" & _
NumDirs 1 & vbCrLf & "文件大小总共为：" & vbCrLf & _
Format(FileSize, "#,###,###,##0") & "字节"
Screen.MousePointer = vbDefault
End Sub

上一篇： 谈谈Windows API 在VB 中的应用
下一篇： 在VB 中调用动态连接库

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!