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

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运行,单击命令按钮即可。
从应用分发到能力开放 华为开发者联盟沙龙上的共赢理念 SOOMLA框架:移动游戏分分钟创建个虚拟商店 Facebook:如何让应用适合所有系统、带宽以及屏幕 Docker实践者不能错过2014 Container技术大会的九大理由!(讲师议题全面揭晓) 2014全球云计算大会中国站(CC China)精彩集锦 腾讯X5浏览服务正式开放 30多款APP成为首批受益者 Node.js设计经验谈 LeanKanban University首位中国认证讲师路宁:看板会为更多国内企业带来深刻变革 环信IM沙龙纪实:无分享不IM,无社交不未来 【工具推荐】ESL:更简洁、更高效的标准加载器 【先锋】亲加通讯云:以云服务模式为App提供社交引擎 2014中国移动开发者大调查第一批获奖名单大曝光 移动开发云服务AVOS Cloud宣布完成A轮融资 Uplinq2014:人工智能嵌入硬件 万物互联建生态 Uplinq2014:基于Vuforia的新奇智能玩具 一应俱全!开源跨平台3D应用开发框架Minko 【线下技术培训】敏捷测试实战解析和系统方案 《近匠》Ping++:简单、高效、第三方支付SDK 有关编程的12个猜想 【问底】王帅:深入PHP内核(二)——SAPI探究 【CTO俱乐部走进汽车之家】活动图文实录 只为逼格?超薄便携式无线充电设备Deuce 戴尔未来重心:云计算、大数据、移动互联与安全 【讲师】搜狐于顺治:Container在搜狐PaaS平台中的应用实践 【先锋】从代码层诊断,云端OneAPM平台让开发者专注开发 阿里将推无线领域重磅计划 阿里百川无线开放大会揭晓 提升网站转化率的四步优化方案 开发者应该了解的API技术清单! 【讲师】腾讯刘永峰:Docker时代,公有云面临的挑战和机遇 移动开发工具服务商Mob推出免费短信验证码SDK 遇见他们,MDCC 2014移动开发者大会嘉宾揭秘 如何使用C访问SYBASE数据库? 分可能不够,可以再加。在线等待中..... Win2000(繁體) + Tomcat4.1.24 + Oracle8.1.6 的數據庫資料顯示亂碼解決問題!100 100分求《Programming Jakarta Struts》这本电子书 如何设置某指定目录的属性 关于JB的简单问题,谢谢. 请大家谈一下win2000下VPN技术的实现 有关Libpcap的编译问题!急! .bak文件?请指教。 KMP算法求解~!!! 如何实现在线订购? 关于升级机器的问题 如何在Image中放大缩小一个WMF文件?还有如何去拖动这个放大缩小的WMF图片呢? 高手请指教 请教:如何由ip获得访问者所在地区 哪位兄弟教教我,如果实现自适应静音检测? 一个B-S结构的售楼软件的报价大致应该是多少? 我的确是做了错事,我决心去努力,但似乎力不从心? 100分 求《UML与Rational Rose从入门到精通》 急!各位高手关于要把多个DC放到一个pDC上显示的问题。 急。关于ppc和sybase的问题 请问编一个WINDOWS画笔 谁有c434009A主板的驱动程序。 请问在windows下如何实现像数据库一样的读、写锁? 为啥我在InstallShield中调用DLL中的函数总是出错呢? 如何能在HTML控件显示区域显示“....(指定的文件名)不存在”? 请问如何把TIF格式转换成JPG或GIF的格式?? 代理不能定时执行,请指教,谢谢。 怎样与外部数据库建立联合查询? 如何接受来自vbscript的字符数据列表 怎么在Gtk+的gnomemessagebox显示中文? (在线等待,急!)在vc中怎么使用datagrid控件 我使用的是odbc访问数据库 好急的问题,有关于SMS的接收字符处理问题,想了好几天没有结果 那位兄弟手头上有ASP.NET高级编程的电子书? DataGrid 控件问题,帮帮我把,朋友! automount? 一个比较难的问题! 关于datagrid的问题 在线等待 在cmd编辑器中用java运行已编译的文件运行不成功怎样解决 各位帮我解决一下这个问题!!!谢谢 关于ResourceManager的疑惑? 两台机器无法访问? 大家有没有听说过zebudom.js这个javascript的API?请问哪里可以下载它? 模块的连接 如何用php开发一个在线语音聊天室? 请问:有谁能提供Microsoft Project 2002简体中文专业版下载地址????急用!!!!!! 《The C++ Programming Language》有没有中译版? 请高手帮我看看: session的范围 硬件加、解密卡合作 请问那里能下到C或者C++的编译环境? 某工人在一定时间内加工一批零件,如果每天加工44个,就比规定任务少加工20个;如果每天加工50个,则超额10个.求规定加工零件数和计划加工天数?(一元一次方程)如果可以的话我追加 人们将不愿意做那样的工作,将会感到厌烦 用英语怎么说 一个苹果四刀分成七份一个苹果,只能切四刀,分成七份.怎么分? 十三岁的际遇中“两岸风景交换”整句的意思 质量是物体的属性可以用什么实验证明?(除天平,写下实验步骤) 班风建设问题如何写啊 十一月四日风雨大作 夜阑卧听风吹雨的巧妙之处 马和驴故事的寓意 12字以内 班风建设怎么体现?我们要进行班级风采大赛,要求展现班风建设,不知从何入手, 在辩论在如何迅速思考.进而组织语言呢? 夜阑卧听风吹雨 铁马冰河入梦来.描写的是哪个季节的雨...还有 "七八个星天外 ,两三点雨山前" 、"问君归期未有期,巴山夜雨涨秋池" 各是描写哪个季节的雨 .急 马和驴子的故事有什么启示?就是马和驴一起驮货驴子力气没有马大 感到很累 马没答应 过一会 驴就累死了 货物全都落到了马的身上大概就是这么个故事 告诉了我们什么深刻的道理呢? 要通过什么样的训练才能让思维敏捷,就是别人说完话我马上就可以说出反驳人家的话,像辩论那样 请问 咖啡猫 翻译成英语是怎样的? 马和驴子的那个故事告诉我们什么道理?就是马和驴一起驮货驴子力气没有马大 感到很累 马没答应 过一会 驴就累死了 货物全都落到了马的身上大概就是这么个故事 告诉了我们什么深刻的道 辩论高手进:急求四辩怎样做能够和团队成员达成一致以及怎样在答辩中能获得主动权呢?我第一次参加学校的辩论赛,辩题是【学风建设 正方:以学校管理为主导 反方:以学生自觉为主导】 十一月四日风雨大作 僵卧孤村不自哀,尚思为国戍轮台. 夜阑卧听风吹雨,铁马冰河入梦来.诗中前两句“僵”一“孤”写出了诗人当时什么的处境;一个“思”字又集中表现了诗人什么的情感. 请问天秤有分几种性格啊?我是天秤女,我的感情路总是不顺,请问为什么呢?而且我的人缘方面总是时好时坏的,这又是为什么呢? 低碳的魅力语句(吸引人的语句)5句 借风雨抒发感情的诗句有哪些?类似“夜阑卧听风吹雨,铁马冰河入梦来.” 在图书馆,新生小林想借一本名著 你向他推荐 朝花夕拾 .下列不能作为推荐语的一项是 来看啊A.这本书记录了鲁迅先生的一些往事留下了他成长的足迹给人很多启发值得一 僵卧孤村不自哀,尚思为国戌轮台是陆游的那首诗? 庄子的《秋水》这则寓言,也许你能从中受到不少启发,请谈谈自己最深的感受? 在图书馆,新生小琳想借一本名著,你向她推荐《朝花夕拾》.下列不能作为推荐语的一项是( )A.这本书记录了鲁迅先生的一些往事,留下了他成长的足迹,给人很多启发,值得一读.B.我喜欢这 陆游的“僵卧孤村不自哀,尚思为国戍轮台”与曹操的哪句诗相一致 朱门酒肉臭,路有冻死骨”欲穷千里目,更上一层楼"“谁知盘中餐,粒粒皆辛苦”各打一成语 人生自古多磨难,世间冷暖皆自知是什么意思? 由《十一月四日风雨大作》中“尚思为国戌轮台”,你能想到陆游哪一首的诗句? 谁知盘中餐 打成语 给我找篇大约300字关于中秋节的文章,题目叫中秋随想300字左右,叫中秋随想,不要太深奥,我说了是300字,不是3000字,看清楚咯,是300字,是300字,是300字,是300字,是300字,是300字,是300字 僵卧孤村不自哀,尚思为国戍轮台.夜阑卧听风吹雨,铁马冰河入梦来.的诗名 猜成语谁知盘中餐 狭路相逢勇者胜的辩论词 僵卧孤村不自哀,尚思为国戍轮台.夜阑卧听风吹雨,铁马冰河入梦来. 全诗抒发了作者强烈的--------- 曾参中参的读音 看世间冷暖, 辩论:道德比利益更重要的1辨稿 楞伽经谁懂里面的意思 我想知道楞伽经谁懂 我想知道 辩论 狭路相逢勇者胜马上有一场辩论赛,是狭路相逢勇者胜还是智者胜,我方是勇者胜,一辩陈词基本写完了,二三辩是提问题让对方回答,请大家帮着想想用什么问题能让对方很难回答,而更好的 x / 2 - 5x+11 / 6 =1 + 2x-4 / 30.1x-0.2 / 0.02 - x+1 / 0.5 = -3 有懂字体的高手吗,我想知道这是什么字体,有点急, 人间冷暖,何去何重, 一元一次方程2道,(1)2(x—2)—3(4x—1)=9(1—x) (2)3分之(2x—1)=5分之(1+4x)—1第2题打扩号的表示是分子. 底面半径8厘米的圆柱形容器与底面半径12厘米的圆锥形容器深相等,把圆锥体容器装满水,再把水倒入圆柱体容器内,水深比圆锥体容器的六分之五低2.5厘米,圆柱深几厘米 带时间陈述句改一般疑问句 在《加菲猫》漫画中,加菲猫最怕哪三件事? 我敬佩的一个人 400 把陈述句改为一般疑问句要怎么改?比如像名词性物主代词要改成什么? 《十一月四日风雨大作》中诗人产生“铁马冰河入梦来”这一梦境的原因有哪些?““夜阑卧听风吹雨””中的 我敬佩的一个人作文400 将陈述句改一般疑问句They are going shopping tomorrow.是Are they going shopping tomorrow.还是Are they go shopping tomorrow.讲下为什么, 一元一次方程,第一题:学校准备添置一批课桌椅,原计划订购60套,每套100元,店方表示,如果多够,可以优惠,结果校方够了72套,每套减价3元,但商店获得同样多的利润,求每套课桌椅进货价格是多 人们将不愿意做那样的工作,将会感到厌烦 英语怎么说 陈述句 改一般疑问句怎么改 this flower is weak.2this is an orange 一元一次方程···高手帮忙哈··用一根长60米的绳子围出一个矩形,使它的长是宽的1.5倍,长和宽各应是多少? 加菲猫在现实生活中是哪个品种提前说谢谢了哈 动物保健所有兽医吗? 几道关于初一奥数的一元一次方程:1.若abc=1,解方程 2ax 2bx 2cx________+________+________ =1ab+a+1 bc+b+1 ca+c+12.若a,b,c是正数,解方程 x-a-b x-b-c x-c-a_______+_______+_______=3c a b3.设n为自然数,(x)表示不超过x 像河南、陕西、河北、山东、山西等等这样的省份地形分划最早在哪个朝代形成了?我记得好像是元朝吧,山西,河南河北、陕西的省份地形已经成形了 有人知道 笑面冷暖心愈安 南京大学两位院士候选人就论文是否造假北京今日将对“停车超3分钟须熄火”入慈溪夫妇8万元叫女儿代存 女儿身亡后18岁小姨子和姐夫好上了 以死要挟非慈溪两岁女童掉进大锅 全身严重烫伤送男子宁波路上擦肩而过时摸女孩胸 被行宁波出台国内首个网购争议处理办法非洲牛郎门谣言案落定 涉事网站被判侵俄印蒙三国总理同日访华非偶然 政治意同济大学开启中美共建全科医学系计划南京大学两位院士候选人就论文是否造假无业男子为供养情妇和私生子 诈骗父母各省区市通报违反八项规定典型 多涉违“中国西藏文化周”在德国柏林开幕 俞冷空气今晚降临杭城 早出晚归的人出门柳岩顶寒风爆乳露背装性感出席优雅盛典众女星冒零度严寒抛胸露背出席优雅盛典日本外务省网上传播争岛视频 引发中韩中关村被卡女子确认脑死 家属否认其有美国称全美近600只宠物疑因食用中国北京脖子卡护栏女子脑死亡 家属称不相日本泳将遭除名一局不失四连胜中国女排成“独苗”张碧晨登顶余枫逆袭百花奖红毯秀雨中上演 章子怡露小蛮腰力争在重点个案上突破烤制食物来了空巢老人 几多辛酸一碗汤的最佳温度过道内海绵垫平倒致学生伤亡百米飞人大战,中国双星携手晋级下一篇“狮虎”争雄越秀山“狮虎”争雄越秀山体坛简讯珍视童年的价值,今年诺奖大热央视:看女篮罚球比男篮踏实 真正考验以农养老带旺养老园区产业不染登革热!孔子诞辰释奠典礼台北隆重举行 马英九吴敦义谈年底选举:端正选风 别用阴谋
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘