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

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


对AngularJS进行性能调优的7个建议 为什么说UX设计师的黄金时代已来临? 豌豆荚:“应用内搜索”是打通移动互联网最具竞争力的入口 苹果发布会后的冷思考,64位芯片为开发者带来了什么? 中兴Geek评测:高性价比的英特尔处理器智能机 SAE的资源、安全隔离与Container 平板电脑悬了 Phablets或成为未来移动设备的主流 拿什么拯救你:黑莓今年将裁员4500人 推荐10款免费的在线UI测试工具 最好的Java IDE之争:Eclipse PK IntelliJ IDEA Intel发布E5 2600 v2处理器 开放硬件监控信息 XP寿终大限将近 微软再次呼吁用户尽早“分手” Dropbox CTO:离开办公室就焦虑的技术宅男 看雪学院“走进企业看安全”活动百度站落幕 九大设计技巧+作品赏析 激发你的创作灵感! 排名前十CEO的工资条,你怎么看? 麻省理工TR35之IT界年轻有为创新者(下) Storm的“翻版”:LinkedIn开源实时数据处理系统Samza 呼吸监测耳机:一个在“呼吸”上做文章的可穿戴设备 谷歌7年210亿美元的基础设施建设,及可供17万家庭使用的风电 Touch ID很安全?德国黑客宣布已绕过苹果指纹识别系统 纽约警方鼓励用户升级iOS 7 你想好了吗? Android开发者不可或缺的四大工具 Mozilla开源TogetherJS:让网站拥有实时协作功能 可穿戴技术专家Jawbone UP向所有开发者开放API 18款在线代码片段测试工具 Gartner咨询公司研究副总裁彼得&#183;福斯特布鲁克:互联网安全新兴威胁与挑战 美国智库战略与国际研究中心(CSIS)詹姆斯&#183;刘易斯:网络安全神话、传说与现实 云安全联盟中国分会理事赵粮:建设可信的云生态环境 Web前端优化最佳实践及工具集锦 2013中国互联网安全大会(ISC)9月23日隆重举行 程序是中文的,可以在日文的 WINDOWS 98 上正常显示 , 及运行吗 ? 让对象在窗体内来回移动,当移动到窗体边界又能反弹回去,这段代码怎么写? 怎样把其他应用程序的主菜单变灰? 大学本科,,函授,自考,夜大,远程教育,自学!哪个硬! 关于TNMUDP不能接收>2048数据包的问题? 关于sizeof()函数的疑问? 请问关于O的设计问题? 在sql server 2000中如何创建一个database 程序是中文的,可以在日文的 WINDOWS 98 上正常显示 , 及运行吗 ? 有没有用过zope的大侠,谈谈感受吧:D LNK4089是什么原因引起的? ADO中,如何获得连接字符串? 请问关于OO的设计问题之二? 语句的错误? 换个id灌水的感觉真爽 一个最简单的存储过程 关于空间的问题 资源文件是什麽,怎麽使用? 请问怎样将下拉数据窗口中的某一行设置为当前所显示的行? InstallShield 如何做个 unistall 的 shortcut 到菜单里 scandir怎么用? 怎样从CMainFrame中调用DOCUMENT类中的PUBLIC成员!谢谢! 在线成中如何更新一个对话框 学习JAVA用JSDK开发还是VJ++?有什么区别吗?还是一样? "Resource id #1"是什么意思?? 主板上风扇都不转了,是什么原因??请教,谢谢!!! 乒乓球队进行比赛.... WIN98中公用文件夹窗体中文本框不能显示汉字 请问大虾:MDI窗体的菜单能不能和子窗体的菜单一起显示在菜单栏上??? 再谈关于PB控制Excel的问题。。。(ton2000) COM连接点客户端接受器的实现问题 为什么我的安装包不能安装?请高手指教,急啊。 送分问题:ASP字符串处理的函数有哪些? VB中将数据库中单条记录输出并打印! VB中如何宣告在DLL文件中的函数? 如何在正则表达式中加入变量 delphi 中的table 的filter有没有支持 like方法,该怎么用,同时filter当字段值为中文时怎么写? 主板上所有的风扇都不转了,硬盘和cpu都能正常工作,请教,谢谢!! 如何判别文件是不是文本文件? 新换了一块20G的硬盘,准备拿出10G安装Redhat7.2,请教最佳的分区方案? 关于武大华软 基于EJB的三层架构下的报表解决方案讨论...... 请问如何保存一个网站的资源 大学本科,,函授,自考,夜大,远程教育,自学!哪个硬! 比比! 斑竹到哪里去了???为什么我问的问题都没人解答的????斑竹职责何在??参与有分 基于EJB的三层架构下的报表解决方案讨论...... 哪位大侠可以给我解释一下“函数重载”是什么??请具体一些!! COM连接点客户端接受器的实现问题 用SQL SERVER中的imprort and export data 将paradox的数据库转为SQL SERVER数据库,可当数据库有密码时,如何转换? 请问java的xml解释器有哪些?怎么能在applet里用这些解释器? 一个小问题!有分哦 苹果树地里面能种什么? 以空气 炭 水为原料制取氨和硝酸氨的化学方程式如题 土豆是什么器官花生是什么器官 苹果树有什么新品种 从空气中抽取的“氮气”的密度比由氮的各种化合物制取的氮气密度大0.0064千克每立方米,为什么? 分子晶体、原子晶体一定都是共价化合物吗? 检验溶液里是否有硫酸根离子,先加BaCl,再加HCl.还是先加HCl,后加BaCl.哪个方案更严密,要有分析哦, 2. 和氢卤酸反应:【乙醇+氢溴酸=溴乙烷+水;取代反应】顺序!【蒸馏水、浓硫酸、乙醇、溴化钠】为什么? 高中同步测控优化训练:生物(必修1)(配人教版)(附测试卷) .给我一份卷子的试题和答案,急 在化学实验中有这样的一步,为了验证盐水是否含有硫酸根离子,先滴几滴HCl将其酸化,然后再滴几滴BaCl2溶液请问这里的酸化是什么意思,滴HCl不是为了检验溶液中是否有碳酸根吗,和酸化有什么 苹果树梨树共180棵苹果数占总棵数的1/3今年又种了一些苹果树这样苹果数占总棵数的2/5现在苹果有多少棵? 生物必修2第四章检测题11.关于细胞呼吸的叙述,正确的是 ()A.水稻根部主要进行无氧呼吸,所以能长期适应缺氧环境B.香蕉在无O2、干燥、零度低温和无乙烯环境中,可延长保鲜时间C.快速登 检验粗盐中有硫酸根离子的时候,为什么先加Hcl使粗盐溶液酸化 然后再加Bacl2? 某硫酸铵化肥7.5g,含氮量为20%,求化肥中硫酸铵含量,求3种以上方法越多越好 电暖宝里的液体是什么? 有没有测老面ph的酸度计啊怎么形容呢!就是比较绸的半固体,面的发酵时的。谢谢大家,我急着知道 怎样除去KCL溶液中的硫酸根离子,依次加入的溶液为 为什为BACL2 K2CO3 HCL求写详细点,太谢谢了 一粒苹果种子能长成一颗苹果树说明了哪种生物特征 物质一定要在明火接触下才会燃烧>?是对是错? 高中生物必修一试卷问题求答案! 果园里有苹果树180棵,苹果是全部的三分之一,又种了一些,这是苹果树是全部的五分之二,现在有多少棵苹果 什么物质可以阻止煤燃烧 求高中生物必修一和必修二试卷各五套要求:1、可以是单元卷,也可以是综合卷,但必须是必修一二各五张(套).2、附上答案,且答案要清楚,无错误.3、适当排版,最好可以直接复制打印.若有 果园里种了一批苹果树和桃树,已知苹果比桃树多1600棵,苹果树的棵数比桃树的3倍多100棵.苹果树和桃树各种了多少棵? 燃烧一定要遇明火吗可燃物燃烧一定要遇明火,还是只要与氧气接触,温度达到着火点就够了? )25.苹果树不宜在热带地区栽种,柑桔不宜在北方栽种,这里起制约作用的因素是:AA.阳光 B.温度 C.水 D.空气 谁有人教版高一生物必修一各单元的测试题,能传给我一份吗? 检验食盐中SO4的实验为什么要先滴加稀盐酸?希望可以说的简单易懂一些, 苹果树不宜在热带地区栽种,柑桔不宜在北方栽种,制约因素是什么A水B阳光C空气D温度 有人能给我人教版 必修1 的整本知识点.有就谢谢了. 提纯氯化钠时,为什么要先除去SO4离子,然后再除去Ca离子和Mg离子?顺序能否颠倒过来? NH3中氮元素与氢元素的质量比是--- 人教版 1.反射活动的基础是▁▁▁▁▁其构成是▁▁▁▁▁▁2.地球上生命系统的最高级形式是▁▁▁▁▁▁▁3.酵母菌细胞区别于乳酸菌细胞的主要结构特点是▁▁▁▁▁▁▁4.细胞学说的 大哥大姐狂求了!越多越好 NH3中氮原素和氢原素的质量比为? 马铃薯的可食用部分是植物的哪个器官 酸度计测溶液pH时,为什么用标准缓冲溶液? 已知碳酸氢氨中氮元素的质量为500克,求的碳酸氢氨质量 电暖宝里的水有毒没有?昨天晚上漏了 弄到内裤上了那是什么成分啊 我是女的 晕 用酸度计测定溶液PH值时,为什么要进行定位校正 合成氨工艺中 475度 26MPa压力条件下 氢氮比分别为3.1,3.2,3.3,3.4,3.5与氨的合成有什么样的数据关系合成氨工艺中 475度 26MPa压力条件下 氢氮比分别为2.8,2.9,3.0,3.1,3.2,3.3,3.4,3.5,3.6与氨的合成有什么 电暖宝液体外漏,如何清洗 用PH计测定溶液的PH时,需要用什么标准溶液定位 答案上说选C,为什么? 琴普牌的电暖宝里是什么液体? 酒精燃烧条件酒精燃烧需要有可燃物+温度+氧,我想知道温度达120度以上,但没有明火是否可以燃烧? 用氨、空气和水为原料制取硝酸铵求:反应的方程式在线等答案 电暖宝里面的有毒吗下午排气的时候水漏出来了黄黄的,溅了一点到嘴唇上 居然被我舔进去了 有毒吗 氨如何制硝酸 NH3+O2为什么生成的是正二价氮,不是应该是零价的吗?根据化合价不交叉原理,负三价不是应该生成零价吗? 电暖宝里装的液体是什么成份? NH3制硝酸 方程式很着急ing 果园里有苹果树300棵,比橘子树多5分之1.橘子树有多少棵?知道最后=250棵 电暖宝里的液体究竟是什么,我想它绝对不会是水,如果是水的话,那么再好的保温也不会让电暖宝保温长达2个小时以上 氨氧化制硝酸实验室制法 急需!介绍越详细越好!讲出其中的物品还有具体作用!方程式和那个Cr2O3的作用是什么! “NH3在空气中不能燃烧,而PH3能在空气中燃烧”能证明氮元素比磷元素电负性大的解释 共价化合物是不是可以分为原子晶体和分子晶体? 北方能种苹果树吗? 果园里有苹果树300棵,比橘子树多5分之1.橘子树有多少棵? 加碘食盐中的碘的含量指的是什么?碘单质,碘分子,碘元素还是碘原子?为什么?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘