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

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对象的属性为其添加一些更为有用的功能。


【观察】跨越“朦胧期”的云计算:产业、核心技术、生态圈以及突破点 Rovio Account:平台化之路修成正果 甲骨文总裁马克•赫德采访实录:用软硬件集成一体机打垮对手 如何一步一步打造高可扩展性的应用程序? 用Java编程,请保持简洁! 从安全隐患带来的商机来看,Hadoop同样很美 三年增四倍:如今谷歌服务占北美互联网流量四分之一 决战低功耗?Intel明年推低功耗Xeon处理器 在软件架构上增加新功能的注意事项 90后的代码界“女神”李雪:在编程中找到自己的“灵魂” 大数据之路不乏荆棘,然则其中的机遇却高于一切 iPhone销量令人意外:苹果Q3财季净利69亿美元 同比下滑 励志:12位早起的IT大佬们让小伙伴们都惊呆了 独家:苹果5周年限免神作,BADLAND开发者访谈 10亿次订阅!苹果Podcast的里程碑 免费利器Unity 4.2正式发布 支持WP8、Win8和BB10 SDCC 2013:Pinterest首位中国籍工程师两场演讲议题确定 甲骨文公布中国首届“Duke选择奖”名单 Moco、X幻想、开源中国获奖 直接拿来用,10个PHP代码片段 编程的未来 数据将成为主角 OpenCL 2.0发布,带来更强悍的异构计算能力 代码审查方式大调查 辅助工具居首(信息图) 一网打尽当下NoSQL类型、适用场景及使用公司 初创公司Treasure Data:每天处理7000亿行数据的20万次查询 豌豆荚王俊煜:将推支付SDK 与开发者3:7分成 英特尔-百度移动应用测试中心(MTC)正式启动 Intel将在2014年为数据中心用户定制低功耗SoC芯片 情绪低落?没事,让计算机来帮你! 水果生意难做 前新浪架构师徐佳转行试水挖煤 思考软件开发中的快与慢 Apache CouchDB注入新鲜血液,整合分布式技术 有一查询工具,欢迎大家使用。 急,delphi中的getmem()的作用是什么,在C++中如何表示? asp.net开发环境的总题。 有人玩传奇吗?有疾风站的吗? 能否用程序来实现对数码相机的控制,如果可以该怎样做? 如何使窗口最大化!不是最大!!!!! 一个游戏编程的绝好网站!!! 谁能帮我解释一下下面的样式单什么意思?一定给分!!! 我用telnet 127.0.0.1 25不能登陆,110端口也是这样 有汕头的哥们吗? 大家晚上好,怎么让我的程序里有一小块是网页的内容呢?(我很穷,呵呵) 请教各位大虾:如何把数据库的两个字段分别设置成Tdbchart的横坐标和纵坐标?小弟急用~~小弟急用~~小弟急用~~ 联众网络游戏是用什么语言写的? 有关使用DirectShow开发TV Capture的问题 如何声明和使用自定义对象(如:Tdadaset)的事件?? PB的数据窗口中GerRow()得到的不是具有焦点的行,如果我要想的到具有焦点的行,应该用什么东东 有关使用DirectShow开发TV Capture的问题(一定给高分) 在VB中能否将时间格式化为显示出毫秒来? 寻求驱动 如何给回答我问题的人加分? 如何在mshflexgrid中输入字符 如何改变当前打印机的纸型? 请问在WINXP下的怎设置IIS? 我在用 DataReport 控件对数据库进行输出时 为什么运行时总是弹出选择数据库的对话框? 这个数据库连接不是已经设置好了吗? 怎样取消textbox的凹凸感? 为什么在IE6 中使用Ctrl+Shift组合健得到的连接是http://www.china.co.cn 为什么总是出现Invalid BLOB handle in record buffer错误 大家晚上好,怎么让我的程序里有一小块是网页的内容呢?(全部家档!!) 关于Database和Session的问题!火急!(快乐的程序员) jsp+mysql如何在linux上配置 有知道黑龙江高程查分方法的吗????? *******我要一个这样的类:显示淡入淡出的菜单(最好还能有半透明的功能) *************** 特急,各位帮忙。怎么样在字符串中包含'(单引号)? 高分求助用paradox数据库保存JPEG图片的代码,我试过网上好多都没成功。markoni@21cn.com 吴文智、袁飞、Jinesc、Jneu、Amoon、ttyp、icevi、progame 快请进 请教一个表与表之间比较数据的问题,由于数据量大,造成事务不够,请教解决方案 execcommand的使用方法求救。高手请进,一定给分。 我的时钟怎么回事? Matlab论坛 打印机的取消按钮 dbgrid中当某个单元格失去焦点时触发什么事件? 关于Database和Session的问题!火急! yanxu1 学习unix下的c编程,该如何学?请介绍方法,资料什么的--我对unix和c都还熟悉。 打印机死机作何解?????? 我是新来的,请各位大哥、大姐们多多关照!!!(有内容) 再次发问关于sql server7的问题?? SQL SERVER中的一个触发器的问题!!! xml里有什么method可以取得子节点在父节点中的位置(序号)? please help me 怎么样才可以把系统存储过程的结果写到结果集里? 销售费用,管理费用,财务费用属于营业成本吗? 鑫鑫商店运进150箱纯净水,每箱24瓶.第一天卖出这批纯净水的1/5,第二天卖出这批纯净水的2/5,其余的第三天全部卖出.第三天卖出纯净水多少箱? 购买120号汽油上海哪里能买到120号汽油呀?做药品杂质检测中要用到的,可能用的量也不是很多我也是被折腾死了,问了好多都没有,加油站也问过。可是实验要用也没办法,关键还是量很少 某商品的进价是500元,标价为750元,商店要求以利润率不低于5%的售价打折出售,售货员最低以几折出售此商品? 鑫鑫商店云锦150箱纯净水,每箱24瓶.第一天卖出这批纯净水的五分之一,第二天卖出这批纯净水的五分之二其余的第三天全部卖完.第三天卖出纯净水多少箱? 90号汽油里能填一点120号汽油吗小型轿车,能在90号汽油里掺点120号汽油吗?可以单独用120号汽油吗,会对发动机有什么伤害? 怎么拿出普通打火机的油 一桶 纯净水,第一天学生喝掉了他的4分之1,第2天又喝掉了他的5分之1,剩下的比喝掉的还要多2千克,这桶纯净水重多少千克 一件服装的售价是264元,盈利率为百分之20,那么这件服装成本价是多少? 销售费用,管理费用,财务费用,制造费用之间的联系和区别在什么情况下会发生上面的一些费用,最好举例说明一下, 顶级手工ZIPPO在淘宝上看到叫这个名字的顶级的zippo,蛮贵的,600多个大洋呢,确实挺好看的,盘龙的样子.有谁买过没? 降香油是什么冠心丹参滴丸里含有降香油,吃后感觉口腔不舒服,降香油是不是损伤口腔黏膜呢? 明明家三天喝一桶纯净水的四分之一.照这样计算,明明家要多少天才能喝完这桶水? 如果一种商品的成本价降低10%,而售价不变,那么盈利率将提高了15个百分点.求该商品成本价降低后的盈利率 麻油党是啥意思经常听人提到麻油党,不知啥意思,请知者赐教 请问这个打火机应该加什么油,哪里可以买到 聪聪把一些土豆放在底面半径是20厘米的圆柱形容器里清洗,这时水深30厘米,拿出土豆后,下面下降了3厘米你能求出土豆的体积是多少吗? 将一个底面半径是5cm,高为10cm的圆柱改造成一个直径为20cm的圆柱,体积不变,那高变成?保留π 一个长方体玻璃容器,从里面量长、宽都是2分米,向容器中倒入6升水,再把一个土豆放入水中..一个长方体玻璃容器,从里面量长、宽都是2分米,向容器中倒入6升水,再把一个土豆放入水中,此时量 如何能在没有容积表和液位仪的情况下知道油罐里有多少油?我现在只知道我的油罐是55立方和30立方的,有没有什么办法能大概知道多少而不至于当个睁眼瞎让司机给宰了 加油站的汽油用完了他们怎么补充? 某商人进货便宜8%,而受家保持不变,那么他的利润(按进货价而定)可由目前的X%增加到(X+10)%,则X%是? 把一些土豆放在底面半径是20厘米的圆柱形容器里清洗,土豆全部进入水中后水深30厘米,拿出土豆后,水面下降3厘米,你能求出土豆的体积是多少么? 1、圆柱体:底面直径10CM,高10CM.2、长方体:长10CM,宽5CM,高20CM.1、圆柱体:底面直径10CM,高10CM.2、长方体:长10CM,宽5CM,高20CM. 某商店经销一种商品,由于进货价降低了6.4%,使利润率提高了8%,那么原经销这种商品的利润率为多少? 豆豆把一些土豆放在底面半径是20厘米的圆柱形容器里清洗,这时水深30厘米,拿出土豆后,水下降5厘米.问土豆的体积是多少? 汽油是怎么运到加油站的 某商场经销一种商品由于进货时价格比原进价降低了6.4%使得利润增加了8个百分点求经销这种商品原来的利润率某商场经销一种商品,由于进货时价格比原进价降低了6.4%,使得利润增加了8个百 一些土豆放在地面半径是20厘米的圆柱容器里清洗,土豆全部浸入水中后,水深30厘米,拿出手土豆后水面下降三厘米,求出土豆的体积是多少吗? 甲乙两个商场以同样的价格出售同样的商品,并且又各自推出不同的优惠措施,甲商场的优惠措施是:累计购买100元商品后,再买的商品按原价的90%收费;乙商场则是:累计购买50元商品后,再买 光明商店经销某商品,由于进货降低了6、4%,使得利润提升了8%.求原来经商这种商品的利润率是多少? 计算贮油罐重量已知一个五千方的储油罐,平顶平底,罐体钢板为15毫米,求解整罐重量,最好列岀工式罐是圆柱体 甲乙两个商场以同样的价格出售同样的商品,并且又各自推出不同的优惠措施,甲商场的优惠措施是:累计购买10 某商店经销一种商品,由于进货降低了6.4%,利润率提高了80%,则原来经销此种商品的利润率是( )A>16% B>17% C>18% d>19% 求高手计算油罐的油重量我的油罐是圆形卧式的,两个端面是圆形、也是油罐的高度和直径!油罐内直径是:1.965米,长度是:3.740米,油位在直径里面的高度是0.715米,油的密度是0.84,求油罐里面的 一个长方体的容器,底面长2分米,宽1.放入一个土豆后,水面升高了0.2分米,这个土豆的体积是多少, 把一些土豆放在底面半径是20cm的圆柱形容器里清洗,这时水深30cm,拿出土豆后,水面下降了3cm.你能求出这些土豆的体积吗? 油罐的重量怎么计算现有一个椭圆形的铁油罐,长半径是1.6米,短半径是1.2米,油罐高是3米,铁皮的厚度是0.5厘米,求这个油罐德的重量,(铁的密度是7.85), 一个长方体容器,底面长2分米,宽1.放入一个土豆后水面升高了0.2分米,这个土豆的体积是多少? 聪聪把一些土豆放在底面半径是20cm的圆柱形器里清洗,土豆全部进入水中后水深30cm,拿出土豆后,水面下降了3cm。问土豆的体积是多少? 1.一件服装的售价是560元,其盈利为40%,求这件衣服的成本价.2.房产商将每套成本为60万元1.一件服装的售价是560元,其盈利为40%,求这件衣服的成本价.2.房产商将每套成本为60万元的住宅以80万 一个长方体容器,底面长2分米,宽1.放入一个土豆后水面升高了0.这个土豆的体积是多少! 聪聪把一些土豆放在底面半径是20cm的圆柱形容器里清洗,土豆全部侵入水中后水深30cm,拿出土豆后,水面下降了3cm.你能求出土豆的体积是多少吗?要讲清楚.为什么要这样做 将15L水和一个土豆一起放入一个长4DM,宽2DM,的玻璃缸中,这是水面离缸口1DM.求出土豆的体积是多 一个长方体容器,底面长2分米,宽1.5分米水深0.8分米放入一个土豆后水面升高0.2分米,土豆体积是多少 zippo打火机灯芯江苏省、南京市.那边有ZIPPO的打火机灯芯卖啊.求知谁能告诉我啊 将15 L水和一个土豆一起放入一个长4宽两分米高三分米的玻璃缸中这时离缸口1dm,你能求出土豆的体积是多少吗? 60kg花生油可榨花生油21kg,照这样计算,24kg花生可榨花生油多少kg?用比例知识解答. 酒精灯芯打火机安全么昨天在夜市 花了30块钱 买了个打火机 (其实我不抽烟 ..只是买着玩) 但我怎么觉得 这个打火机 不安全啊.它不是 灌气的 而是 在后面 滴一些水...中间是根 酒精灯 那 将15升水和一个土豆一起放入一个长四分米,宽二分米,高三分米的玻璃缸中这时水面离缸口1分米求土豆的体积 甲乙两商店以同样价格出售同样的商品,并推出不同的优惠方案在甲、乙两商店以同样价格出售同样的商品,并且又各自推出不同的优惠方案:在甲店累计购买100元商品后,再购买的商品按原价 请问南京有那家快递公司可以邮寄打火机.打火机油,打火机气这些危险品?我要发往全国各地的!价格不是问题,最重要的是信誉! 加油站油罐3吨、5吨、10吨分别的价格是多少? 下面的玻璃缸中原来有500毫升的水,在每个玻璃缸都放入一个土豆,结果如下图.每个土豆的体积是多少立方厘米小学六年级数学补充习题第19页第四小题,谢谢 什么样的打火机不用气也不用油? 一件商品进货价是80元,售货价是100元,利润率是多少 应用题:一件服装售价50元,盈利率百分之40,求这件衣服成本价 统计吨产品利润计算公式,利润是营业利润还别的利润,含营业费用 、管理费用和财务费用吗 某种商品的进价为100元,售价为a元,把该商品销售的利润率用式子表示. 一个正方体玻璃容器棱长3dm,向这个容器倒入18L水,再把两个梨放入水中完全侵没,这时水深28cm.这两个梨的体积是多少立方厘米?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn