VB查找文件的两种方法

王朝厨房·作者佚名  2007-01-04
窄屏简体版  字體: |||超大  

民政部信息中心 方云波

---- 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可以轻松地完成我们开发中的所有任务。

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航