在VB中要实现查找文件功能,我们可以利用VB的DIR函数进行递归来实现。每次使用DIR函数后,比较是否有要查找的文件,再检查是否有子目录,若有,利用递归继续查找,这样可对整个盘进行查找。
下面是一个例子,查找DOS目录下的所有EXE文件,统计EXE文件的数目并列出文件名。本程序会查找当前路径下的所有文件和子目录,与WIN95的“包含子文件夹”的查找功能类似。
程序与注释如下:
1.在窗体中加一命令按钮Command1,Caption=查找示例,双击此按钮,写如下代码:
PrivateSubCommand1-Click()
Dimff()AsString′定义一个字符串数组用来保存找到的文件名称
DimfnAsLong′保存找到的文件数目
fn=TreeSearch(″C:%%dos″,″*.exe″,ff())
Print″找到文件数目为″;fn
ForI=1Tofn
Printff(I)
Next
EndSub
2.插入一模块Modulel.bas,写如下代码:
OptionExplicit
PublicFunctionTreeSea...[ 查看全文 ]