VB查找文件的两种方法
方云波
---- VB开发人员都会遇到文件定位的问题。VB提供的Dir[（pathname[, attributes]）]函数应该可以满足各种文件定位问题。使用Dir函数时，我们必须给它提供文件的全部路径，否则是找不到的。而有时我们往往是不知道文件的路径的，如果要利用该函数来定位文件，我们必须编写一定的代码。笔者在利用该函数编制查找文件的函数时，颇费了些工夫，可是发现查找的效率不高，效果不太理想。那么有没有编码少且更快的方法查找文件呢？笔者后来利用一个 API函数成功地编制了一个高效率的查找文件的函数。下面一一介绍给大家，起个抛砖引玉的作用，期望大家能编制出更高效的函数。 ---- 一. 利用DIR函数查找文件 ---- Dir[（pathname[, attributes]）]是VB提供的用来检查某些文件或目录是否存在的函数，它返回一个 String，用以表示一个文件名、目录名或文件夹名称，返回值必须与指定的模式或文件属性、或磁盘卷标相匹配。 ---- 如果文件的路径很清楚，那么确定文件是否存在简单地调用该函数就行了。如果光知道文件名，甚或只知道文件的后缀，要定位文件的话就需要一定的编码了。下面的例子用来定位c:\下所有目录内是否有文件Win.ini。 Function FindDirectory（RootPath As
String, Mydirectory（） As String）
Dim intResult, I, intFind As Integer
‘首先查找根目录下的所有子目录
MyPath = ＂c:\＂ ' 指定路径c:\。
MyName = Dir（MyPath, vbDirectory） ' 找寻第一项。
intResult = 1
ReDim Mydirectory（intResult） ‘初始化动态数组
Do While MyName ＜ ＞ ＂＂ ' 开始循环。
' 跳过当前的目录及上层目录。
If MyName ＜ ＞ ＂.＂ And MyName ＜ ＞ ＂..＂ Then
' 使用位比较来确定 MyName 代表一目录。
If （GetAttr（MyPath & MyName）
And vbDirectory） = vbDirectory Then' 如果它是一个目录，将其名称存储在一个数组里。
Mydirectory（intResult） = MyPath & MyName
intResult = intResult + 1
ReDim Preserve Mydirectory（intResult）
‘分配动态数组实际的元素个数，并保留数组中的数据
End If
End If
MyName = Dir ' 查找下一个目录。
Loop
‘在所有目录里分别查找文件是否存在。
For I = 1 To UBound（Mydirectory）-1
MyFile = Mydirectory（I） & ＂\win.ini＂
intFind = Len（Dir（MyFile））
If intFind ＜ ＞ 0 Then MsgBox ＂找到文件＂ &
Dir（MyFile） & ＂在：＂ & Mydirectory（I）
Next I
End Function---- 该函数的思路很清晰：先遍历根目录下所有的子目录，然后在每个子目录里查找文件。该函数有一个缺陷：只能查找根目录下的一级子目录，无法遍及整个硬盘。如果要遍及整个硬盘，还需要额外的编码，这里不再多述。 ---- 二. 利用API函数查找文件 ---- 在使用VB的过程中我深深地体会到，只有充分利用API的函数才能更充分地发挥VB的优势。 API函数 SearchTreeFile可以很快地定位一个文件。借助该函数笔者编了一个快速查找文件的函数sysFileFind. Declare
Public Declare Function SearchTreeForFile Lib
＂imagehlp.dll＂ （ByVal lpRoothPath As String,
ByVal lpInputName As String,
ByVal lpOutputName As String） As Long---- 下面为sysFileFind函数的编码： Public Function sysFileFind
（ByVal WhichRootPath As String,
ByVal WhichFileName As String） As String
Dim iNull As Integer
Dim lResult As Long
Dim sBuffer As String
On Error GoTo L_FILEFINDERROR
sBuffer = String$（1024, 0）
'查找文件
lResult = SearchTreeForFile
（WhichRootPath, WhichFileName, sBuffer）
'如果文件找到，将返回字符串后续的空格删除
'否则返回一个空字符串
If lResult Then
iNull = InStr（sBuffer, vbNullChar）
If Not iNull Then
sBuffer = Left$（sBuffer, iNull - 1）
End If
sysFileFind = sBuffer
Else
sysFileFind = ＂＂
End If
Exit Function
L_FILEFINDERROR:
MsgBox ＂查找文件过程中遇到错误！＂,
vbInformation, ＂查找文件错误＂
sysFileFind = Format（Err.Number）
& ＂ - ＂ & Err.Description
End Function---- 该函数可以很快遍历整个硬盘，从而查找到我们所需的文件。 ---- 三. 总结 ---- 上面两个函数都在中文VB5和Win98环境下调试通过。我们可以看到第二种方法编码更简单，效率更高。 ---- VB5强大的功能赢得了越来越多开发人员的青睐。如果适当地利用API函数，我们可以说，利用VB可以轻松地完成我们开发中的所有任务。
方云波
---- VB开发人员都会遇到文件定位的问题。VB提供的Dir[（pathname[, attributes]）]函数应该可以满足各种文件定位问题。使用Dir函数时，我们必须给它提供文件的全部路径，否则是找不到的。而有时我们往往是不知道文件的路径的，如果要利用该函数来定位文件，我们必须编写一定的代码。笔者在利用该函数编制查找文件的函数时，颇费了些工夫，可是发现查找的效率不高，效果不太理想。那么有没有编码少且更快的方法查找文件呢？笔者后来利用一个 API函数成功地编制了一个高效率的查找文件的函数。下面一一介绍给大家，起个抛砖引玉的作用，期望大家能编制出更高效的函数。 ---- 一. 利用DIR函数查找文件 ---- Dir[（pathname[, attributes]）]是VB提供的用来检查某些文件或目录是否存在的函数，它返回一个 String，用以表示一个文件名、目录名或文件夹名称，返回值必须与指定的模式或文件属性、或磁盘卷标相匹配。 ---- 如果文件的路径很清楚，那么确定文件是否存在简单地调用该函数就行了。如果光知道文件名，甚或只知道文件的后缀，要定位文件的话就需要一定的编码了。下面的例子用来定位c:\下所有目录内是否有文件Win.ini。 Function FindDirectory（RootPath As
String, Mydirectory（） As String）
Dim intResult, I, intFind As Integer
‘首先查找根目录下的所有子目录
MyPath = ＂c:\＂ ' 指定路径c:\。
MyName = Dir（MyPath, vbDirectory） ' 找寻第一项。
intResult = 1
ReDim Mydirectory（intResult） ‘初始化动态数组
Do While MyName ＜ ＞ ＂＂ ' 开始循环。
' 跳过当前的目录及上层目录。
If MyName ＜ ＞ ＂.＂ And MyName ＜ ＞ ＂..＂ Then
' 使用位比较来确定 MyName 代表一目录。
If （GetAttr（MyPath & MyName）
And vbDirectory） = vbDirectory Then' 如果它是一个目录，将其名称存储在一个数组里。
Mydirectory（intResult） = MyPath & MyName
intResult = intResult + 1
ReDim Preserve Mydirectory（intResult）
‘分配动态数组实际的元素个数，并保留数组中的数据
End If
End If
MyName = Dir ' 查找下一个目录。
Loop
‘在所有目录里分别查找文件是否存在。
For I = 1 To UBound（Mydirectory）-1
MyFile = Mydirectory（I） & ＂\win.ini＂
intFind = Len（Dir（MyFile））
If intFind ＜ ＞ 0 Then MsgBox ＂找到文件＂ &
Dir（MyFile） & ＂在：＂ & Mydirectory（I）
Next I
End Function---- 该函数的思路很清晰：先遍历根目录下所有的子目录，然后在每个子目录里查找文件。该函数有一个缺陷：只能查找根目录下的一级子目录，无法遍及整个硬盘。如果要遍及整个硬盘，还需要额外的编码，这里不再多述。 ---- 二. 利用API函数查找文件 ---- 在使用VB的过程中我深深地体会到，只有充分利用API的函数才能更充分地发挥VB的优势。 API函数 SearchTreeFile可以很快地定位一个文件。借助该函数笔者编了一个快速查找文件的函数sysFileFind. Declare
Public Declare Function SearchTreeForFile Lib
＂imagehlp.dll＂ （ByVal lpRoothPath As String,
ByVal lpInputName As String,
ByVal lpOutputName As String） As Long---- 下面为sysFileFind函数的编码： Public Function sysFileFind
（ByVal WhichRootPath As String,
ByVal WhichFileName As String） As String
Dim iNull As Integer
Dim lResult As Long
Dim sBuffer As String
On Error GoTo L_FILEFINDERROR
sBuffer = String$（1024, 0）
'查找文件
lResult = SearchTreeForFile
（WhichRootPath, WhichFileName, sBuffer）
'如果文件找到，将返回字符串后续的空格删除
'否则返回一个空字符串
If lResult Then
iNull = InStr（sBuffer, vbNullChar）
If Not iNull Then
sBuffer = Left$（sBuffer, iNull - 1）
End If
sysFileFind = sBuffer
Else
sysFileFind = ＂＂
End If
Exit Function
L_FILEFINDERROR:
MsgBox ＂查找文件过程中遇到错误！＂,
vbInformation, ＂查找文件错误＂
sysFileFind = Format（Err.Number）
& ＂ - ＂ & Err.Description
End Function---- 该函数可以很快遍历整个硬盘，从而查找到我们所需的文件。 ---- 三. 总结 ---- 上面两个函数都在中文VB5和Win98环境下调试通过。我们可以看到第二种方法编码更简单，效率更高。 ---- VB5强大的功能赢得了越来越多开发人员的青睐。如果适当地利用API函数，我们可以说，利用VB可以轻松地完成我们开发中的所有任务。
使用DIR函数后，比较是否有要查找的文件，再检查是否有子目录，若有，利用递归
继续查找，这样可对整个盘进行查找。
下面是一个例子，查找DOS目录下的所有EXE文件，统计EXE文件的数目并列出文
件名。本程序会查找当前路径下的所有文件和子目录，与WIN95的“包含子文件夹”
的查找功能类似。
程序与注释如下：
1.在窗体中加一命令按钮Command1,Caption=查找示例，双击此按钮，写如下代码：
Private Sub Command1－Click()
Dim ff() As String′定义一个字符串数组用来保存找到的文件名称
Dim fn As Long′保存找到的文件数目
fn=TreeSearch(″C:％％dos″，″＊.exe″，ff())
Print″找到文件数目为″；fn
For i=1 To fn
Print ff(i)
Next
End Sub
2.插入一模块Modulel.bas，写如下代码：
Option Explicit
Public Function TreeSearch(ByVal sPath As String,ByVal sFileSpec As String,sFiles() As String)
As Long
Static 1Files As Long′文件数目
Dim sDir As String
Dim sSubDirs() As String′存放子目录名称
Dim 1Index As Long
If Right(sPath,1)<>″％％″Then sPath=sPath＆″％％″
sDir=Dir(sPath ＆ sFileSpec)
′获得当前目录下文件名和数目
Do While Len(sDir)
1Files=1Files＋1
ReDim Preserve sFiles(1 To 1Files)
sFiles(1Files)=sPath＆sDir
sDir=Dir
Loop
′获得当前目录下的子目录名称
1Index=0
sDir=Dir(sPath＆″＊.＊″,16)
Do While Len(sDir)
If Left(sDir,1)<>″.″Then ′skip.and..
′找出子目录名
If GetAttr(sPath ＆ sDir)And vbDirectory Then
1Index=lIndex ＋1
′保存子目录名
Redim Preserve sSubDirs(1 To 1Index)
sSubDirs(1Index)=sPath ＆ sDir ＆″％％″
End If
End If
sDir=dir
Loop
For 1Index=1 To 1Index
′查找每一个子目录下文件，这里利用了递归
Call TreeSearch(sSubDirs(1Index),sFileSpec,sFiles())
Next 1Index
TreeSearch=1Files
End Function
3.保存文件，按F5运行，单击命令按钮即可。
程序运行环境：VB 4.0 (32位)，中文WIN95。
Private Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long
Private Declare Function FindClose Lib "kernel32" (ByVal hFindFile As Long) As Long
Private Declare Function FindNextFile Lib "kernel32" Alias "FindNextFileA" (ByVal hFindFile As Long, lpFindFileData As WIN32_FIND_DATA) As Long
Private Const MAX_PATH = 260
Private Type FILETIME
dwLowDateTime As Long
dwHighDateTime As Long
End Type
Private Type WIN32_FIND_DATA
dwFileAttributes As Long
ftCreationTime As FILETIME
ftLastAccessTime As FILETIME
ftLastWriteTime As FILETIME
nFileSizeHigh As Long
nFileSizeLow As Long
dwReserved0 As Long
dwReserved1 As Long
cFileName As String * MAX_PATH
cAlternate As String * 14
End Type
Private Sub Command1_Click()
Form1.Show
Dim wfd As WIN32_FIND_DATA
Dim source As String
Dim hfile As Long
Dim nfile As Long
source = "C:\My Documents\My Pictures\*.jpg"
hfile = FindFirstFile(source, wfd)
If hfile <> -1 Then
MsgBox wfd.cFileName
End If
Do
nfile = FindNextFile(hfile, wfd)
Print wfd.cFileName & Chr$(13)
wfd.cFileName = " "
Loop Until nfile = 0End Sub