一个用vbs查找硬盘所有分区中的指定程序的代码
作者 佚名
来源 ASP编程
浏览
发布时间 2013-07-09
| OnErrorResumeNext''忽略所有错误 Dimfilename''声明变量 Dimre Setre=NewRegExp''建立正则表达式对象实例 re.Pattern="^([a-z]|[A-Z])+\:\\\w+\.vbs$" Ifre.Test(WScript.ScriptFullName)=FalseThen MsgBox"请在磁盘根目录下运行本程序，否则搜索结果可能会不正确！",,"MessageBox" WScript.Quit EndIf re.Pattern="^([A-Za-z0-9_]|[^\x00-\xff])+\.[a-zA-Z]{1,4}$"''声明正则表达式的匹配模式，主要用来检验用户输入的文件名是否正确 Do filename=InputBox("请输入你要搜索的文件名：","MessageBox") Iffilename=""ThenWScript.Quit''如果输入为空则退出脚本 Ifre.Test(filename)=FalseThen MsgBox"请输入合法的文件名！",,"MessageBox" EndIf LoopWhilere.Test(filename)=False''直到用户输入正确的文件名时才跳出循环。 Setre=Nothing Dimie Setie=WScript.CreateObject("internetexplorer.application")''建立IE对象，用来显示搜索状态 ie.menubar=0''不显示IE对象菜单栏 ie.AddressBar=0''不显示IE对象地址栏 ie.ToolBar=0''不显示IE对象工具栏 ie.StatusBar=0''不显示IE对象状态栏 ie.FullScreen=1''全屏化IE对象 ie.Width=640''设置IE对象宽度 ie.Height=120''设置IE对象高度 ie.Resizable=0''设置IE对象大小是否可以被改动 ie.Navigate"about:blank"''设置IE对象默认指向的页面 ie.Left=Fix((ie.Document.parentwindow.screen.availwidth-ie.Width)/2)''设置IE对象左边距 ie.top=Fix((ie.document.parentwindow.screen.availheight-ie.height)/2)''设置IE对象右边距 ie.visible=1''设置IE对象是否可视 Withie.Document''以下为在IE对象中写入页面，跟一般的HTML没有区别 .write"<html>" .write"<head>" .write"<title>文件扫描状态</title>" .write"<metahttp-equiv=""content-type""content=""text/html;charset=gb2312"">" .write"<style><!--" .write"body{background:#000000;text-align:center;margin:0pxauto;}" .write"*{font-family:Arial;font-size:9pt;color:#00cc00;line-height:140%;}" .write"a:link,ahover,a:visited{text-decoration:none;}" .write"#scanstatus{text-align:left;margin:15px;}" .write"#header{width:100%;height:20px;}" .write"#middle{width:100%;height:50px;}" .write"#footer{width:100%;height:20px;text-align:right;}" .write"--></style>" .write"</head>" .write"<bodyscroll=no>" .write"<divid=""scanstatus"">" .write"<divid=""header"">正在启动搜索程序。。。</div>" .write"<divid=""middle""></div>" .write"<divid=""footer""><ahref=""#""onclick=""window.close()"">退出程序</a></div>" .write"</div>" .write"</body>" .write"</html>" EndWith ''定义文件系统对象变量 Dimfso Dimobjfolder Dimobjsubfolders Dimobjsubfolder Dimobjfiles Dimobjfile Dimobjdrives Dimobjdrive Dimobjtextfile Dimstr:str="" Dimi:i=0''计数器变量 Dimresult result="C:\搜索结果.html"''搜索结果保存文件变量 ''一个过程，用来遍历硬盘文件 Functionsearch(path) Setobjfolder=fso.getfolder(path)''获得当前路径 Setobjfiles=objfolder.Files''获得当前路径下的所有文件集合 ForEachobjfileInobjfiles''开始遍历文件集合 ie.Document.getElementById("middle").innerHTML=objfile.Path''用到IE对象的文档对象模型，将当前搜索的文件路径写入ID为middle的DIV中 Ifobjfile.Name=filenameThen''如果当前文件名与用户输入的文件名一致 |
凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢! |
你可能对下面的文章感兴趣
上一篇: 学习 WSH 的理由小结下一篇: vbs循环产生的参数的传递问题
关于一个用vbs查找硬盘所有分区中的指定程序的代码的所有评论
