说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

VB实现文件查找功能

HTML文档下载 WORD文档下载 PDF文档下载
VB实现文件查找功能
在VB中要实现查找文件功能,我们可以利用VB的DIR函数进行递归来实现。每次使用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运行,单击命令按钮即可。
有 BitMap 之Menu -VB资料 运行其他程序,并等待执行完毕 -VB资料 再谈VB程序的加密 在 VB 程序中如何设定 Mouse 光标的位置? 在ActiveX DLL工程中慎用App对象-VB资料 在ActiveX控件工程中设置DataField属性-VB资料 在VB中异步执行程序 在VB编程中有效地组织和利用资源 在VB应用程序中巧用DLL 在VB应用程序中使用INI文件的一点体会 在VB中操纵OLE服务器应用程序 在VB中改变显示器的分辨率 在VB中获取和修改计算机名字 在vb中没有指针,怎样才能将数组作为参数。 在VB中如何调用C++Builder创建的DLL 在VB中设置常用的外部设备 在VB中使用枚举变量 在Visual Basic 中使用C++ 类 在WindowsNT网络中广播消息 -VB资料 在可编辑控件中创建一个新的上下文菜单 -VB资料 在软件中设定热键-VB资料 在注册表中添加自己的文件类型-VB资料 在桌面上建立 Internet 快捷键 -VB资料 在桌面上添加程序的快捷方式 -VB资料 VB怎样得到当前的屏幕分辨率? VB怎样关闭Windows VB怎样关闭一个程序 VB怎样使我的程序总处于屏幕最前方?(Always on top) VB怎样延迟一个VB程序? VB怎样在VB中控制WORD VB怎样找到鼠标指针的XY坐标? 求救:高分 急 用代理服务器,可以上网,却不能上qq~~怎么办? 用ole控件打开一个WORD文档后,如何保存? BCB 6.0 装不了我以前在 5。0 下面装的一个控件 怎么回事? 来者有分!!!!存贮过程中创建视图的问题 在线等待!急,tomcat中文问题 急急急急急急!!!delephi 能调用.class文件吗??也就是使用java的接口!如何作??? 请各位大侠尽快指点! 怎么让StringGrid的行数随数据的多少改变? 一个关于线程的问题 怎么拖动无标题栏窗体? 使用FTP碰到的问题 windows下的网络编程的c库函数有什么?怎么用? 为什么我的机器加入域的时候会出现“提供的凭据与已存在的凭据集冲突”的错误? 一个简单但很迷惑地问题!请指教! 分发高手睇过来 请求帮助 [转帖·放分]恶毒女人的情书 如果自己创建一个类,在这个类中想调用当前CXXVIEW类中的函数该如何办? P:Pointer? 数据库连接问题? 如何在菜单中显示图片?谢谢! 在线等待!急,tomcat中文问题 工作很非常特别烦心,散分 如何监控网络中的打印 请问在COMCAT中如何更改根目录的路径 java 中的double类型,在Oracle数据库中应该对应的是什么类型? 怎样作才能不让用户随意更改系统时间和日期? 关于单击和双击的问题 请问一个关于GB要转换成日文的Shift-JIS内码的问题 请问一下这个字符串什么意思? 在ASP.NET中怎樣讀取通過用XMLHTTP Send過來的XML數據包(一個問題50) 关于IrDA在WINDOWS/NT/XP下的编程实现 一定给分啊,快点进来看看阿 ! 帮忙写个SQL语句。 静态文本框里的文字如何调整其大小? store procedure类型 数据窗口问题 编译器参数,在线等待 求sql 如何用BUTTON按钮,将一个窗体文件关闭? 非常简单的付值问题.火急,再线等待,马上送份 调用RasDia();第一次拨号成功断线后再拨就返回错误字符终止连接为何代码如下: 怎样能编写用于用ie注册邮箱、论坛账号时自动填表的软件 资源文件的问题! 一个挑战斑竹的问题!!50分 如何把压缩文件(*.rar或则*.zip)和word文档存到Acess数据库啊??? 如何可以知道访问我的网站的用户来自哪里? 关于SQL的问题 这对话框我如何去掉 asp.net 能否运行在Solaris系统下,参与者有分 c#请求援助 基因重组技术人与蟒蛇基因重组融合培育出蛇人具体的方法说谢谢! 我国与周边国家有哪些海洋争端 一张纸(无论大小)为什么最多只能对折7次? 菊之爱,陶后鲜有闻和牡丹之爱,宜乎众矣语气 国防教育征文 王老师倒了杯牛奶,先喝了1/2,接着加满咖啡,又喝了1/3,再加满咖啡,最后把这杯全部喝完.王老师喝的牛奶多还昰咖啡多? 过滤器芯过滤面积的计算 想成大事的女人具备什么品质 必须经历什么 急求答案!Mathematica数学实验练习题1题目在这里 回答完的另加分 急用!http://hiphotos.baidu.com/%CC%EC%C3%FC%D0%A1%D0%A1%D7%D3/pic/item/eaff45feeac478095d600841.jpg 六角恐龙的过滤器可以用外置循环的吗? 两首送别的诗.请写出两手关于送别内容的古诗,都是一个是人写的,一首诗写诗人送好友的情景,一首诗好友宋诗人时的情景. 超声波加湿器电子振荡电路我在河南新乡一家织布厂工作,想自己做一个超声波加湿器用于车间加湿,我在网上看到有卖的加湿量30KG/H,我不知道最大能做到多大?就想做个大功率简易型的 mathematica能不能处理含参积分, 说两首送别的古诗 屈原有什么激励人们奋发图强的千古名句 请高手帮翻译英语“我和同学们今天去书城看书时,发现已经有汪东城的新书了”翻译英语我和同学们今天去书城看书时,发现已经有汪东城的新书了 用一根铁丝围成一个平行四边形已知平行四边形相邻的边总长为15厘米这根铁丝一共有多少厘米如果改成最大的等边三角形这个等边三角行边长是多少厘米 屈原写的什么千古名句激励一代又一代的人奋发图强要激励的句子 今年儿童节,展宏用8.8元购买了甲乙两种礼物,甲1.2元1件.乙0.8元1件,其中甲比乙少1件,问甲乙两种礼物共买了()件.某地居民生活用电基本价为0.50元1度,规定每月基本用电量为a度,超过部分的 在哪下动物大战僵尸?发个网址啦 ,求 .发我邮箱也行546201570@qq.com 有植物大战僵尸2、3、4、5、6也都行 Mathematica 微分方程初始条件问题Mathematica解微分方程时,加了初始条件出错!为什么?如:In[1]=DSolve[{y'[x]+y[x]==aSin[x],y[0]==0},y[x],x]DSolve::deqn:Equation or list of equations expected instead of True in the first argume 选择合适的句子下面几个比喻句中比喻最贴切的一项是()A.这个老单身汉像木条一样瘦削.B.一轮满月正在荒野上庄严地徐徐升起,像一个赤红的大金盘.C.这个姑娘的眼睛又黑优良,像她经常戴 脑筋急转弯:一头牛,向北走10米,有向西走10米,再向南走10米,倒退右转,问牛尾巴朝哪儿?不难办. 雅思10天复习计划还有10天考试了,目前有剑3~7,高中词汇(背的差不多了),4级词汇,所有的基经,还有新东方雅思全套.怎么用,帮我制定一个高效的计划,我最少要6.这10天从早上6点到晚上9点,除了休 给下列句子中选择正确的解释(写序号)异:1、不同的;2、分开;3、另外的,别的;4、特别的;5、奇怪(1)石钟乳和石笋颜色各异.( )(2)奇花异草不容易养活.( )(3)这是一道奇异的 "珍爱生命,远离毒品"演讲稿 雅思复习计划我暑假怎么复习2个月考雅思,但现在越看越迷茫.请给我个详细的复习计划,目标6,保5.5,目前大一 张明有邮票120张,比小李邮票张数的2倍还多16张,小李有邮票多少张?方程和等量关系方程:等量关系式: 什么样的男人能成大事? 雅思具体的复习计划有三个月左右的时间 雅思想考到6.5 现在英语水平顶多是4级水平请高手帮帮制定一个非常具体的复习计划尤其是写作和听力方面的 对于这两项 是最没信心的出国在即 就 张明有邮票235张,李浩有邮票311张,要使张明的邮票是李浩的3倍,要使张明的邮票是李浩的3倍,李浩要给张明多少张邮票? 征文开头怎么写 现在白海豚有多少只?现在世界上白海豚有多少只?中国有多少只白海豚? 把人和动物的基因合在一起? 写征文怎么开头?.. 白海豚是什么 如何将动物的DNA射到人体 历史的选择征文开头 不管多大的纸,最多只能对折9次对吗? 国防教育征文怎么写 改革三十年征文开头 Mathematica 如何生成这个排列表?如何生成这个排列表?在一个表中,每取连续n个元素,向后移动k个位.例如下式是每取4个元素向后移动1个位.输入:s1={a1,a2,a3,a4,a5,a6,a7,a8};输出:s2={{a1,a2,a3,a4},{a2,a3,a4,a 国防教育的征文 一个猎人向南走10千米,又向东走10千米,又向备走10千米,这是他又回到了原地,请问出发点在里?仅有这一点吗? 怎么用Mathematica画出一列点 就是画出的点是竖着排列的 最好是Mathematica 5.0实现的怎么用Mathematica画出一列点 就是画出的点是竖着排列的 最好是Mathematica 5.0实现的 小学国防教育征文 一只熊先向南走10千米,再向东走10千米,又向北走10千米,又回到了出发点问它在哪儿?PS:这个不是急转弯 为什么每张纸对折超不过9次? 国防教育征文(急求!)600字左右,最好有指导! 表示送人的古诗有哪些? 剑桥雅思口语精讲好还是雅思口语胜经好 蟒蛇属国家几级保护动物? 李浩喝了一杯牛奶的1/6,加满又喝1/6,加满又喝1/3,再加满后喝完.喝的牛奶多还是水多? 教育 总朝一个方向走,不改变方向,最后能回到原点的是( ) A.0°经线 B.40°N C.20°W D.160°E 原 蟒蛇是国家一级保护动物还是二级保护动物? 小华喝一杯牛奶的6分之1,加满水后又喝了一杯的3分之1,再倒满水.又喝了2分之1,继续加满水后一杯喝完了.问小华喝了牛奶和水各几杯? 一张纸,无论有多大.为什么最多对折三次? 应该可以通过基因融合技术把人和杂交品种有毒的巨蟒基因融合成为蛇人我不要求像X战警那样我只要成为变种人就可以了我想培育和蛇人出来我相信铁能成针失败是成功之母我要集中大量的 小刚喝一杯牛奶的1/2,然后在杯内加满水;他喝了1/3杯后,又加满水;他又喝了1/6杯后再加满水,最后把一杯全喝完了.小刚喝了牛奶和水各几杯? 某商场把一个双肩背的书包按进价提高50%标价,然后再按8折(标价的80%)出售,这样商场每卖出一个书包就可...某商场把一个双肩背的书包按进价提高50%标价,然后再按8折(标价的80%)出售,这样商场 X-CAT摩托艇锦标赛挺进中国 首站中国最透明的安全软件:百度杀毒隐私保肯德基“半价桶”遭遇争论 小薯条代替宁海查获一万多罐假红牛 包装味道都和外国驻韩外交官5年犯法48起 外交豁农业部:农垦有望率先实现农业现代化朴槿惠为韩职棒总决赛开球 穿日本运动美媒揭白宫工作准则:不让总统为坏消息叙利亚总统警告:外国停止支持反对派才杨澜提问郎朗\"工作有何意义\"惹争金华餐饮业遭遇寒流 高档酒店与农家乐奥巴马医改网站安全漏洞细节曝光 内测金华看守所推启迪教室 给在押未成年人学者称一线城市过高生活成本让人幸福感能源局发布页岩气产业政策 加大财政扶戴尔完成249亿美元私有化交易 从纳在未建交国书写传奇——记旅居巴拉圭侨爱尔兰政府资深顾问哈利根:中国梦属于马达加斯加总理经济顾问曼德拉拉:中非日本福岛核电站冻土遮水壁预计将使用6专家:注册资本改革反推行政改革 建立市政府举办APEC财长会招待会“水门事件”报道主将辞世本市遴选扶持优秀创业项目畅销书作家大冰新书写爱与温暖强征“慰安妇”铁证如山不容否认飞吧,中国梦“北京经济体制改革的经验中日韩网络安全事务磋商机制“借名”或“租牌”买车引发案件逐年上大剧院“戏剧工作坊”搬进校园金正恩视察延丰科学家休养所早市要管理 便民别扰民中小学试点数字学校网络平台京津公路部分公交站座椅打晃歪脖树摇摇欲坠 居民惴惴不安第二十一届APEC财长会在京开幕APEC会议期间地铁随时加车男子象甲联赛北京队主场告负金科天宸 打造重庆最具诚意的别墅缓解秋燥,多喝豆浆有了志愿者,居民更安心
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘