首页 相关文章 用VB实现文件查找功能

用VB实现文件查找功能

在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...[ 查看全文 ]

2016-02-19 标签:

用VB实现文件查找功能的相关文章

手机页面
收藏网站 回到头部