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

最新推荐文章于 2013-07-26 00:34:43 发布

johnny_83

最新推荐文章于 2013-07-26 00:34:43 发布

阅读量2.8k

点赞数

分类专栏： API 文章标签： api vb string integer function path

本文链接：https://blog.csdn.net/johnny_83/article/details/1701833

版权

这篇博客展示了如何利用Windows API函数在VB环境中遍历指定驱动器和目录的文件及子目录。通过调用API如FindFirstFile、FindNextFile等，实现查找和列出指定路径下的所有文件和子目录，同时提供了自定义函数处理搜索过程。

摘要由CSDN通过智能技术生成

以下代码演示了如何用Windows API函数遍历指定驱动器、目录的所有文件。其思路是：调出浏览文件夹窗口让用户指定所要搜索的起始路径，然后用查找文件的API函数遍历该目录下及其包含的子目录下的所有文件。本例需要：一个按钮，一个TextBox和一个ListBox，其中，TextBox应设置为多行。
核心代码参照API-Guide的两个例子程序，特此声明。 Option Explicit
　　查找第一个文件的API
Private Declare Function FindFirstFile Lib /"kernel32/" Alias /"FindFirstFileA/" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long
　　查找下一个文件的API
Private Declare Function FindNextFile Lib /"kernel32/" Alias /"FindNextFileA/" (ByVal hFindFile As Long, lpFindFileData As WIN32_FIND_DATA) As Long
　　获取文件属性的API
Private Declare Function GetFileAttributes Lib /"kernel32/" Alias /"GetFileAttributesA/" (ByVal lpFileName As String) As Long
　　关闭查找文件的API
Private Declare Function FindClose Lib /"kernel32/" (ByVal hFindFile As Long) As Long
　　以下为调用浏览文件夹窗口的API
Private Declare Sub CoTaskMemFree Lib /"ole32.dll/" (ByVal hMem As Long)
Private Declare Function lstrcat Lib /"kernel32/" Alias /"lstrcatA/" (ByVal lpString1 As String, ByVal lpString2 As String) As Long
Private Declare Function SHBrowseForFolder Lib /"shell32/" (lpbi As BrowseInfo) As Long
Priva