用VB实现文件查找功能

华耀四海8363

华耀四海8363

2016-02-19 17:56

今天图老师小编给大家精心推荐个用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
  PublicFunctionTreeSearch(ByValsPathAsString,ByValsFileSpecAsString,sFiles()AsString)
  AsLong
  Static1FilesAsLong′文件数目
  DimsDir AsString
  DimsSubDirs()AsString′存放子目录名称
  Dim1IndexAsLong
  IfRight(sPath,1)″%%″ThensPath=sPath&″%%″
  sDir=Dir(sPath&sFileSpec)
  ′获得当前目录下文件名和数目
  DoWhileLen(sDir)
  1Files=1Files+1
  ReDimPreservesFiles(1To1Files)
  sFiles(1Files)=sPath&sDir
  sDir=Dir
  Loop
  ′获得当前目录下的子目录名称
  1Index=0
  sDir=Dir(sPath&″*.*″,16)
  DoWhileLen(sDir)
  IfLeft(sDir,1)″.″Then′skip.and..
  ′找出子目录名
  IfGetAttr(sPath&sDir)AndvbDirectoryThen
  1Index=lIndex+1
  ′保存子目录名
  RedimPreservesSubDirs(1To1Index)
  sSubDirs(1Index)=sPath&sDir&″%%″
  EndIf
  EndIf
  sDir=dir
  Loop
  For1Index=1To1Index
  ′查找每一个子目录下文件,这里利用了递归
  CallTreeSearch(sSubDirs(1Index),sFileSpec,sFiles())
  Next1Index
  TreeSearch=1Files
  EndFunction
  3.保存文件,按F5运行,单击命令按钮即可。
  程序运行环境:VB4.0(32位),中文WIN95。->

展开更多 50%)
分享

猜你喜欢

用VB实现文件查找功能

编程语言 网络编程
用VB实现文件查找功能

用SendMessage函数实现VB程序的查询功能

编程语言 网络编程
用SendMessage函数实现VB程序的查询功能

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

RichEdit中实现查找功能

编程语言 网络编程
RichEdit中实现查找功能

WinRAR支持文件查找功能吗

电脑网络
WinRAR支持文件查找功能吗

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

在VB中实现文件上传

编程语言 网络编程
在VB中实现文件上传

实现文件加密功能

C语言教程 C语言函数
实现文件加密功能

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

WPS2010在线素材功能怎么用

WPS2010在线素材功能怎么用

italics 方法

italics 方法
下拉加载更多内容 ↓