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

VB中自制文件搜索器

HTML文档下载 WORD文档下载 PDF文档下载
VB中自制文件搜索器

从WINDOWS 95开始,微软为我们提供了一个好用的文件搜索器。使用这个搜索器,我们可以方便快捷的查找到符合条件的文件。但有时我们在程序设计中也需要这一功能,能否在自己的程序中实现呢?答案当然是肯定的。下面我们就来着手设计一个VB程序中的文件搜索器。
首先,进入VB中,建立一个新的表单。在表单上建立一个驱动器列表框(DriveList),一个目录列表框(FolderList),一个检查框(SubCheck),一个ListView控件(FileList),两个文本框(FileName,FileSize)和两个按钮(cmdSearch,cmdExit)。需要注意的是ListView 控件是 Mscomctl.ocx 文件中一组 ActiveX 控件的一部分。若要在应用程序中使用 ListView 控件,必须将 Mscomctl.ocx 文件添加到工程中。选择ListView控件,点击鼠标右键,在弹出菜单中选择“属性”。在属性窗口的“列首”页中设置将要显示的列,连续按动“插入列”5次。排列好各控件的位置,然后加入以下代码:
Option Explicit
Dim FileSys As Scripting.FileSystemObject

Private Sub CmdExit_Click()
End
End Sub

Private Sub DriveList_Change()
FolderList.Path = DriveList
End Sub

Private Sub Form_Load()
Dim I As Integer
Set FileSys = New Scripting.FileSystemObject
FolderList.Path = Left(DriveList.Drive, 2) & "\"
With FileList.ColumnHeaders.Item(1)
.Alignment = lvwColumnLeft
.Text = "文件名"
.Width = 2000
End With
With FileList.ColumnHeaders.Item(2)
.Alignment = lvwColumnRight
.Text = "大小(KB)"
.Width = 1500
End With
With FileList.ColumnHeaders.Item(3)
.Alignment = lvwColumnLeft
.Text = "类型"
.Width = 1500
End With
With FileList.ColumnHeaders.Item(4)
.Alignment = lvwColumnLeft
.Text = "路径"
.Width = 2000
End With
With FileList.ColumnHeaders.Item(5)
.Alignment = lvwColumnLeft
.Text = "修改时间"
.Width = 2000
End With
End Sub

Private Sub Form_Unload(Cancel As Integer)
Set FileSys = Nothing
End Sub

Private Sub cmdSearch_Click()
Dim SFolderStart As Scripting.Folder
Set SFolderStart = FileSys.GetFolder(FolderList.Path)
FileList.ListItems.Clear
AddFiles SFolderStart
If FileList.ListItems.Count = 0 Then MsgBox _
"没找到任何符合条件的文件!",vbOKOnly + vbInformation, "提示信息"
End Sub

Private Sub AddFiles(SFolderSearch As Scripting.Folder)
Dim SFolder As Scripting.Folder
Dim SFile As Scripting.File
Dim sngFileSize As Single
Dim lngSize As Long
Dim Itm As ListItem
If SubCheck.Value = 1 Then
If SFolderSearch.SubFolders.Count Then
For Each SFolder In SFolderSearch.SubFolders
AddFiles SFolder
Next SFolder
End If
End If
sngFileSize = FileSize * 1000
For Each SFile In SFolderSearch.Files
With SFile
If .Size >= sngFileSize And IIf(FileName.Text < > "", _
InStr(.Name, FileName.Text) > 0, True) Then
Set Itm = FileList.ListItems.Add(Text:=.Name)
lngSize = .Size / 1000
With Itm
.SubItems(1) = Format(lngSize, "#,###")
.SubItems(2) = SFile.Type
.SubItems(3) = SFile.ParentFolder
.SubItems(4) = SFile.DateLastModified
End With
End If
End With
Next SFile
Set Itm = Nothing
Set SFolder = Nothing
End Sub
运行后,选择相应目录,再在FileName文本框中输入要查找的文件名或文件名的一部分,然后再在FileSize文本框中输入文件的大小,按下搜索按钮即可搜索到相应文件。当然,这只是个功能较为简单的文件搜索器,有兴趣的读者可以使用Scripting.FileSystemObject对象的属性为其添加一些更为有用的功能。


如何激励同事编写单元测试? 谷歌GCE vs. 亚马逊EC2:快源于谷歌本有的底蕴 不要责怪开源技术 它是无辜的 短命:微软将于2014年停止对WP8系统支持 Native和Web过时了,企业级移动开发流行用Hybrid App 与EverNote竞争?谷歌Google Keep浮出水面 又一次跨越:著名3D游戏引擎Unity版本更新 Feedly团队:自研后端平台或将开源 StackMob的诱惑:16小时,山寨一款移动App “云”筹帷幄 开发者必知的5大SaaS在线服务工具 超350个政府项目托管在GitHub 政府开源会成主流? Kinect for Windows SDK 1.7正式发布,支持3D建模 SafeNet与风河系统联手推出VxWorks嵌入式系统软件货币化方案 Windows Server 2012中的动态负载均衡 Google等互联网公司将成为创新中心? 在Hadoop的战争中 MapR获新一轮3000万美元融资 初创公司DNNresearch:谷歌科技帝国的新“基石” 创业了,我们该如何起名? 乐视网联手富士康推新盒子C1S “0+290元”新浪微博发售 吸引开发者:只要开发新应用 微软便奖100美元 PaintCode - 将矢量图转化为Objective-C代码的开发神器 苹果发布iOS 6.1.3 封杀evasi0n越狱所用漏洞 [API快讯] Google开放实时协作API 58同城开源轻量级Java Web框架 Argo 初创公司AppNeta:4轮融资,4780万美元 MongoDB释放2.4版本:692更新及8大得意之作 十年6亿美元!Amazon云计算喜获CIA大单! 国人当自强:HTML5+联盟首次筹备会成功举行 开源框架TAAE发布 快速打造iOS音频应用 如何学会600多种编程语言 “第五届中国云计算大会”将于2013年6月5-7日在京召开 神洲数码怎样? 请大家帮帮忙:如何将一个字符转换为unicode码形式(得到的是数字,而不是字符串)! msn怎么通不过http代理 求助:J2EE Container中deployed的servlet是否可以调用EJB local home? 有关时间限制 ie问题有没有碰到过 TADOTable+TDBGridEH+TDataSource中编辑一有关键字的表时,怎样做到避免在输入相同的关键字时的出错? IE经常自动关闭是什么原因 菜鸟请教 UlraEdit? 四舍五入的函数是什么?? 帮帮忙!!!我编译出这问题?? 请问:发现病毒:生成folder.htt,还有后缀都是htt的其他文件,用kv3000杀,提示kbs\kj,请问是什么病毒,怎么杀毒(急)? ie问题有没有碰到过 打开adsl的猫机器能自己启动为什么? 神洲数码怎样? linux中如何得到某个网络设备的ip地址? 请教ADO的Recordset对象的Delete的问题 请问jbuilder的参考书,哪本比较好?市面好像种类比较少 请问怎样获得临时表的记录? @@@@@@@@@@如何使我的折线图随着时间移动@@@@@@@@@@ 菜鸟问:各位大哥看c++ primer的时候是用什么编译器? 神洲数码怎样? jsp如何将web页面的String型转换为long型? 极容易的问题 ,先来先得! 大虾,救命啊!!!!!! jsp如何将web页面的String型转换为long型? ★★★帮忙翻译一句话!谢谢★★★ **冗余醒目**《如何在输入的时候减小冗余》**冗余醒目** 倡议书:维护您的网络权益 [100分,两日内结]怎样在jsp中得到我的数据 两个菜鸟问题,送分拉 线程与消息??? c、odbc、嵌入式sql的关系? 简单的重载问题! 用<input type="fiel" name="test">时,怎样判断输进去的文件是硬盘上实际存在的? 请问哪里有eclipse 下载? FINDING SOMEBODY! 显示器不亮,请帮忙,解决给100分 写在3.15黎明的前夕 **冗余醒目**《如何在输入的时候减小冗余》**冗余醒目** 各位,CSDN的论坛都是用些什么工具开发的?? 请问个位大虾,我的程序为什么不能执行(TC++3.0) 在VC中怎么调用IE来显示一个页面? 怎样在新开的页面给已开的页面上的一个TextBox插入新的字符串 [转贴]网络版权问题 **冗余醒目**《如何在输入的时候减小冗余》**冗余醒目** 用purify测试过的release版本怎么在别人的计算机上运行有问题? 如果用asp连接mysql,请问连接字符串是什么? 我要做一个在小型的对等网上运行的数据库软件,用什么方法好点? 如果用asp连接mysql,请问连接字符串是什么? 我国义务教育的教学计划应具有的三个基本特征是(  )A.强制性、基础性、科学性  B.强制性、普遍性、科学性C.科学性、普遍性、基础性  D.强制性、普遍性、基础性选什么? 二氧化碳含量最高的是 A 呼出气体 B组织细胞 什么东西能导电? 不敢回忆那一次 阅读题答案中:当女残疾人扶我时,我为什么会觉得有十几只狼在咬我?下意识地我告诫自己千万千万不要摔倒,身体本能地站得更稳——一般人都会从别人的摔倒中得到教训. 写一篇关于冬天的记叙文 呼出的气体中氧气含量. 潮吹_如何潮吹_什么是潮吹_怎样潮吹_女性潮吹 成功的营销计划一般具有哪些特征 读狐狸和狗 有感 400~500字狐狸钻进羊群,抱起一只正在吃奶羔羊,假意抚爱他.牧羊犬见了,问道“你这是干什么?”狐狸说“我照料他,逗他玩”牧羊犬说“你不立刻放下他,我就让你尝尝什么是狼 什么是潮吹?真的有潮吹吗? 形容“爱”的段落或句子.优美些的,淡雅些的,平淡些的,独特些的,具有代表性的...分类为:1.幸福2.悲哀3.沉思4.安慰5.努力,奋斗6.夸张7.愤怒8.怨恨9.埋怨10.觉得(因为没有尝试过.)如果还有别 二氧化碳验满将燃着的小木条放到收集好二氧化碳的集气瓶的瓶口 为什么小木条没有熄灭 电子跳蚤落在数轴上的某点,第一步从K0向左跳1个单位到K1,第二步从K1向右跳2个单位到K2,第3从K2向左跳3个单位到K3,第四步由K3向右跳四个单位到K4..,按以上规律跳了100步时,电子跳蚤落在数轴的 求关于形容幸福的句或段落 想要验满氧气应怎样做是将带火星木条放入集气瓶口还是将带火星木条接近集气瓶口 女人潮,吹是怎么回事?为什么会潮,吹… 形容小区环境不错的句子段落(最好有关于环保的) 阿拉斯加的海洋哺乳动物数量减少还是增加了呢? 潮吹是什么? 形容打架的句子或段落 化学:四氯化碳之间也是共价键相连啊,为何是分子晶体而不是原子晶体?原子晶体的具体概念? 在下列4个图中,只能是由常染色体上隐性基因决定的遗传病是 一个密封的杯子,不断向外抽气,里面空气的密度变化吗? 在匀速行驶的火车上,我们竖直向上用力地跳起来,落下来后为什么还会站在原地? 已知,在三角形abc中,ab=ac,d是三角形abc中的一点,且角adb=角adc,求证bd=dcrt 季羡林的文章 一条老狗 读后感 火车提速原理近十年来,铁道部先后6次实行火车大提速.为了适应提速的要求,则()A 机车的额定功率可以保持不变 B 机车的额定功率必须减小C 铁路转弯处的路基坡度应加大 D 铁路转弯处的 己知在三角形ABC中,AB=AC,D是三角形ABC中的一点,且角ADB=角ADC,求证:BD=DC图暂时没有 生活中哪些是导电海绵(泡沫)?要常见的,到点效果好的, 站在火车上,跳起来,还在原来的地方吗我们的意见不统一, 说一说,在你的生活中,科学带给你的影响和改变. 谁能告诉我包装泡沫导电吗?我不小心把一粒白色的包装用的泡沫掉进液晶显示器中去了,请问这样会造成短路吗?如果不会短路,那么对显示器的使用有什么影响. C为线段AB的中点,D为AB上的一点,E为AD的中点,且AD=6,EC=7.求DC,AB的长. 是谁改变了你的生活.如果有人改变了你的生活,为你带来了一片新天地,你会感激他一辈子吗? 什么叫导电海绵 C为线段AB的中点,D为线段AB上一点,E为线段AD的中点,且AD=6cm,EC=7cm.求线段DC,AB的长 我叫MT 安装失败 如题 我下 靠谱安装的 提示 安装失败 塑料泡沫是否导电 电势梯度,电势,电场强度哪两个是相等的物理量 除了金属甚么东西会导电?物质具有甚么性质能导电 高中物理竞赛需要培养哪些思维能力?尽量完整些,谢谢. 什么东西不会导电 日常生活中哪些东西可以导电?制作科学小发明怎样安全使用电线或线路或导体? 高中的物理竞赛要怎么学才能考出好成绩? 写反义词:甜蜜 日常生活用品哪里有导电橡胶 海豚真的救过人类吗? 甜蜜的反义词是? 《冬天的温暖》600字,是记叙文哦!老班布置任务了,写篇《冬天的温暖》600字记叙文哦,明天就要上交咯!呜呜,不要什么下雪天的,可以是发生在自己身上的事哦! 高中离子方程式总结谁能帮我把高中所以离子方程式总结下 所有不是所以不好意思 C是线段AB的中点,D是线段CA上的一点,E为线段AD的中点,如果BD=6,求EC的长. 计划具有——————————三个特点. 高一化学离子方程式的总结 中华鲟是海洋动物,还是淡水生物 全球冬天的环境的记叙文 高一化学离子方程式总结 C是线段AB的中点,D是线段CA上的一点 ,E为线段AD的中点.如果BD=6 求线段EC的长. 项目计划特征有哪三个部分组成 呼出气体含量最多是什么我个人认为第一是氮气 第二是氧气 第三才是二氧化碳 我问过全班同学 包括化学老师 他们都说二氧化碳最多 真的气的我嘴都歪了 有Q可能啊 我还专门上网查了查 结 C是线段AB的中点 D是线段CA上的一点 E为线段AD的中点 如果BD=6 求线段EC的长. “甲壳虫”乐队主唱列侬儿时故居48万美国承诺不再窃听联合国 对此前传闻不中国—东盟能源合作进入“零关税”时代中国驻圣彼得堡总领事和留学生谈梦想中国军方就日舰闯入我演习区提出严正交日本发现一种化合物可预防糖尿病等疾病全球发展中国家每年新增200万名15国防部回应安倍抗衡中国言论:不自量力澳大利亚利用“特等舱”为美国搜集亚太我军2名专家将赴叙利亚执行化学武器销埃塞俄比亚“中国通”总统:中国值得埃“中国周”活动走进墨西哥高校国防部就日舰机闯入我演习区干扰演习提野田:小泉时代便开始探讨“购买”钓岛我军2名专家将赴叙利亚执行化学武器销日方渲染“中国威胁”旨在为扩充军备制陈昌智会见缅甸联邦议会代表团中国赴马里维和部队准备工作就绪国防部:日方有关言论颠倒黑白不自量力国防部:日方应习惯并接受别国合理合法国防部就日舰机干扰我军西太平洋演习提神奇!美国一少女意外发现自己多个“分奇葩!德艺术家打造逼真“器官首饰”(玩砸了!醉酒男子从电梯中间滑下时摔倒持申根签证中国公民将能免签入境白俄罗丹麦动物园两北极熊“离婚”后“无奈分天才!英少女创作微型艺术眼妆重现名家“八年抗战”改为“十四年抗战”背后的五星红旗飘扬在台湾“总统府”前联合国开发计划署同基金会中心网联合发阿富汗国会附近发生连环爆炸 致至少3临沂市再度拉响霾黄色预警 本周末或有厦门思明警方一天捣毁两个窝点最高人民法院原副院长奚晓明受贿案一审“养生大楼”里的老人:在堆满保健品的公安部推广自助办理赴港澳台旅游签注业琅岐:国际旅游岛有了“村民110”平潭:联动机制有效分流非警务警情中共中央国务院出台意见推进防灾减灾救福州警方开展“110宣传日”活动郑州今年再开9条轨道交通线路 四环有刘诗雯解禁在望!出席刘国梁生日宴获保
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘