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

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运行,单击命令按钮即可。
Clash of Clans产品总监:游戏中的商品定价一开始就要高 移动互联网最核心的竞争是:设计的竞争 【直击美国云计算】面对AWS,VMware不会畏缩 美国白宫任命Twitter法务总监Nicole Wong为副CTO Keek宣布推出首款视频Update API 专访阿里前端工程师:淘宝移动Web开发那些事儿 【直击美国云计算】为什么eBay用燃料电池来驱动他的犹他州数据中心 【直击美国云计算】6周发布新产品,LinkedIn的trunk-based开发 移动周报:疯狂吐槽还是更得欢心?细数iOS 7的是与非 国内最受欢迎的开源项目集锦 开始3D编程前需注意的十件事 [CTO俱乐部第100期]软件平台的新思维及2345技术团队管理经验分享 失败怪圈:今天的移动App在重蹈1999年的覆辙 极客编程必备的五大PHP开发应用 Oracle或将宣布与Salesforce.com,NetSuite以及微软结盟 【专访间】神州数码谢耘:智慧城市需要以“融合平台”为特征的沃尔玛模式 对话OW2 CEO:开源≠安全隐患,免费≠无利可图 不断抄袭的Facebook正逐步沦为一家普通的公司 Windows 8.1会不会把Windows 8的“Modern”开发者踢到路边 任志鹏:FusionCloud是华为二十年技术积累的精华 机器学习典范?iOS7中的Siri能主动学习如何发音 三星宣布关闭PC业务 主推便携设备和一体机 Web设计师必须掌握的六大设计策略 Facebook为什么要推Instagram视频分享功能? 天气预报(id后面的9位数字为城市代码)年月日,星期,当前时间(仅用于javascript) PHP 5.5.0发布 不再支持Windows XP和2003 专访ThinkPHP创始人刘晨:用最简单最快速的方式开发PHP应用 重构:仔细查看,改进代码 加速编码的17款最棒的CSS工具 生于微信:专访疯狂猜图CEO曹晓刚 谷歌:受感染的合法网站远比恶意网站危险性大 怎么现在没法用search了? 一个菜鸟的问题,关于事件的加载 求救~~~安装完WINXP,进入系统前会出现错误窗 关于速度,效率,VB IIS ASP COM高手请进 我用extracticon将图标从exe文件中提取出来了,请问高手们,如何保存为ICO文件。 急急急,如何解决多窗口关联及激活问题!高分相送 请教一下,如何刷新ie浏览器,我用postmessage模拟按键F5,没成功,谢谢 怎么样把多个程序打包到一个文件中,然后怎么样释放出来!高分求答案(分两次给100分)! 为什么计算字段不能排序 我是新手,高手教教我吧!!! 如何激活oracle8.16的监听??? Domino Administrator 中的“配置”->“消息处理”->“网络域” C#究竟是什么东东?象C++还是象JAVA? 求dxdbtreeview 1.2 for d5 有人知道天津英业达吗? vb6如何结合DirectX编程? 怎樣才能把數據寫入BIOS中的DMI里去? 我要用vb得到一个EXCEL表格中的内容,经过数据处理再把数据写入新的EXCEL表格,如何实现? 心情不好,散分 我怎樣才能把mssqlserver中的數據庫導出到mysql中? >>有人知道天津英业达吗? 在VC中,如何编写Makefile,及如何用 .mak 文件编译,联接程序(来者有分) 我的电脑经常在使用时出现“EXPLORER出现非法操作即将关闭……”然后死机,怎么办? JavaScript一问!!! windows nt 的问题(急)? 如何设定paradox的自增长自段 关于报表中零值显示问题求助 那位知道控制打印机的win32函数,1、使其打印完毕不换页(卷纸) 2、以及换行的函数!!! 请问怎样捕获WINDOWS的文件拷贝事件? ■■请问WIN2000下对内存区的访问如何进行,类似于游戏修改等软件?■■ 内存分配不能分配?该用什么来分配内存? 做图象处理可以,作这个不可以? 如何将上次表单的残余值给清掉? 如何打开一个窗口? 搞不明白?各位高手帮帮忙!! 如何在win98与2000共同使用同一软件? 有个问题,怪怪怪 高分求救:做单片机的前途怎么样? 如何在VB中制作复杂的动态报表? (新手急需) 一个分页进行选择的问题!!!急呀。。。。。。。。。 虚心求教DataReport打印问题,特着急! 有用DirectX作软件界面的吗?(不是游戏) VB中有没有类似日历的哪种控件啊?详细一点,thx 如何上传图文混排的的文件到数据库中? 菜鸟提问 怎么样才能实现这样的界面啊?各位高手请帮忙! 建Lotus表再把数据导进去,用delphi怎么做? 哪里可以找到数据库及相应的某系统需求分析 请教如何控制showmessage弹出对话框的外观. 统计出table1中dm字段的内容为"002"的有几个,怎么办?请指教! 有一个字段名叫DM,原来是2位字符型的,现在需要改成3位,即在前面自动加一个0即可,请问用什么语句? 当table1表中的dm字段变化时,同时想要table2表的dm字段也跟着变过来,是不是可能呢? 我想添加一个字段,当新记录时,该字段是系统当前时间 求描写天空的唯美句子 那一次,我被感动了 作文800字 以"__________的日子"为题,写一篇作文,600字以上!快开学了! 中央一套 《开学第一课》我的梦中国梦 观后感 (600字左右)好的,另加赏金50! 《这一幕感动了我》 400字真实一点 不要多也不要少400字写一件具体事例 有情景 有感受 求一篇600字的,以"做个有心人"为题的文章! 中央一套 开学第一课我的梦中国梦 观后感 新年作文600字以上,初二 1、皇上招你进上书房伺候时,你无意间听到与有大臣参奏与你世家有关的不利的事情.皇上已经知道你听见了,你应当怎样应对?请自行演绎.演绎时请注意心理和动作的描写.字数不少于100.2、皇 找母爱父爱师生情的美文还有人与自然,写景的. 感动为话题 不少于800字 若在宫中,你的好姐妹因嫉妒你得到皇上的宠爱,故意散布谣言,说你对皇上不忠,在宫中有相爱的男子,宫中有很多人都在背后说你的坏话,而你朋友也因此离你而去,你该怎么办? 求体现父爱 母爱 友谊 或者师生情的几件事例 有事件就行 我只要素材 六年级上册语文课文第一课《山中访友》视频 推荐些纯宫斗小说甄嬛传 金枝玉叶 .倾世皇妃 落尽梨花春又了 媚行深宫 宸宫这些都看过啦 父爱或母爱的小故事50字5篇 六年级上册语文课文第一课《山中访友》预习内容 六年级语文第一课山中访友 作文--我心中的桥(父爱.母爱.友谊.微笑...) 仿写6年级上册语文书第一课《山中访友》 山中访友命题 宫斗外貌描写,妖艳点必须妖艳 填空;我们的天空给予我们[ ],我们将[ ] 为什么以山中访友为题? 宫斗里怎么描写人物相貌 给我一个 我们的天空 的有效链接《我们的天空》 BEYOND我是用来做空间背景音乐的我在百度都找不到有效的,音乐放不了. 在括号里填上合适的词语 什么的宇宙 宫斗 首饰.具体描写首饰的样子.描写,描写样子什么的. 我们的天空给予我们遍地的彩虹,我们将共享.我们的河水给予我们不朽的生命我们将报纸他们的洁净.仿写.给予我们.,我们将.两个 帮帮忙是关于和平的~好的话再加悬赏 形容宇宙大的词语 文章和感悟200字 描写宇宙的词语今天晚上就要10月20日6点以前谢谢!不要太少不然我不给分的另外这些我已经写过了不要再发:广袤无垠 浩淼 神秘莫测 未知 无边无际 以《我的理想》为题写一篇作文500-600字 我们的天空 描写宇宙的词越多越好 以永远的什么为题写一篇600字作文 以”我们的天空“为话题 作文快意点哈 BEYOND的歌《我们的天空》歌词家驹永恒的乐神,四大天王只是浮云,你是永远的好声音,家驹,爱你 宫斗考题1.如果冒犯了主子,2.请说出2种以上请安的方式 3.当主子问话需要回答时,应该以什么话开头?4.什么话是不能和主子说的?5.对主子该自称什么?6.你认为,妃嫔贵人等,对于比她等级高的,应 《第七条猎狗》读后感200字以内.200字以内! 求高手帮忙找一些描写宇宙的句子如题.我写作文要用. 六年级下语文同步第一课长江之歌全部答案,快答 《小溪流的歌》 读后感200字以内 六年级课文山中访友主要内容,急用 以母爱或父爱为话题的作文“爱是人间的春风,爱是生命的源泉”.学了【秋天的怀念】一课,你一定更加感到母爱或父爱的伟大.请以“母爱或父爱”为话题,选择你与母亲或父亲之间发生的意 宫斗的动作,语言、神态 描写宇宙的句子一定要是句子,诗词,或者是一小段(不要一大段的,要不要词语) 要一篇 以 改变之后 为题目的作文 600字左右 《山中访友》的课文主要内容是 谁有六年级上册的山中访友原文?人教版的六上第一课 宫斗:答题一天!你和皇后、羽妃,一起去湖边撒步,走到湖边,皇后不小心被香蕉皮滑了一跤!不小心,她掉入湖中!羽妃看见了!就去皇上那里告你!你该怎么办、怎么给皇上解释、为什么、说出理由 描写天空的比喻句最好还有描写月亮、星星的比喻句! 描写太空中景物的句子就是我来到了太空,看见行星、白羊星座、火星……这些景物,他们长什么样,最好运用修辞手法 宫斗求答题1.若在宫中,有人散布谣言,说汝对皇上不忠,在宫外有相爱的男子,宫中有很多人都在背后说汝的坏话,而汝最好的朋友也因此离你而去,汝该怎么办?2.若有朝一日,你登得凤位,与你争夺 六年级上册语文课文第一课《山中访友》仿写 描写宇宙变化的语句 宫斗问题答题啊...你生母早逝,自幼便是贵妃抚养长大.贵妃膝下有一子一女,抚养你不过是为了在皇帝面前搏个好名声,面上对你只是淡淡的.你长大后也知晓一点,一日皇帝来此,你当着众人的面 苏轼有哪句诗句描写的是“墨泼的天空”?必须是苏轼的诗句!回答正确者必赏! 描写天空的排比句要优美,是自己写的. 以“高度”为题的作文,600字,快
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn