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

在VB中，可以使用API函数来遍历指定驱动器或目录的文件。首先，我们需要声明一些需要使用的API函数。

1. 声明函数：需要使用FindFirstFile、FindNextFile和FindClose函数来进行文件搜索。

Private Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long
Private Declare Function FindNextFile Lib "kernel32" Alias "FindNextFileA" (ByVal hFindFile As Long, lpFindFileData As WIN32_FIND_DATA) As Long
Private Declare Function FindClose Lib "kernel32" (ByVal hFindFile As Long) As Long

2. 声明数据结构：需要使用WIN32_FIND_DATA结构体来存储搜索到的文件信息。

Private Type WIN32_FIND_DATA
dwFileAttributes As Long
ftCreationTime As Currency
ftLastAccessTime As Currency
ftLastWriteTime As Currency
nFileSizeHigh As Long
nFileSizeLow As Long
dwReserved0 As Long
dwReserved1 As Long
cFileName As String * 260
cAlternate As String * 14
End Type

接下来，我们可以编写一个过程来进行文件搜索并遍历。

Private Sub GetFiles(ByVal path As String)
Dim hSearch As Long
Dim findData As WIN32_FIND_DATA

'添加路径分隔符
If Right$(path, 1) <> "\" Then
path = path & "\"
End If

'开始搜索
hSearch = FindFirstFile(path & "*", findData)
If hSearch <> -1 Then
Do
'忽略隐藏和系统文件夹
If (findData.dwFileAttributes And vbHidden) = 0 And (findData.dwFileAttributes And vbSystem) = 0 Then
'找到了文件，处理文件
Debug.Print findData.cFileName
End If
Loop While FindNextFile(hSearch, findData) <> 0
FindClose hSearch
End If
End Sub

在这个过程中，我们首先根据路径和通配符 "*" 调用FindFirstFile函数来搜索第一个文件，然后使用FindNextFile函数来继续搜索下一个文件，直到没有文件可搜索为止。在每一次搜索到文件时，我们可以进行相应的处理，这里只是简单地输出文件名。

例如，我们可以调用以下代码来遍历D盘根目录的文件。

GetFiles "D:\"

这样就可以遍历D盘根目录的所有文件，并输出文件名。当然，你可以根据自己的需求对搜索到的文件进行处理。