一个扩展时间段的dir命令的vbs脚本
作者 佚名
来源 ASP编程
浏览
发布时间 2013-07-09
| setArg=Wscript.Arguments IfArg.Count=0then Wscript.echochr(9)&chr(9)&space(4)&"Xdirv0.1" Wscript.echo"" Wscript.echochr(9)&"cscriptdir.vbspathtime1time2ext" Wscript.echochr(9)&"cscriptdir.vbsd:\test2008010120080430doc" Wscript.Quit EndIf Path=Arg(0) Time1=Arg(1) Time2=Arg(2) Ext=Arg(3) FileTotal=0 DirTotal=0 FileTotalsize=0 TimeSpend=Timer myFindPath TimeSpend=round(Timer-TimeSpend,2) txtResult="搜索完成!"&vbCrLf&"共找到文件:"&FileTotal&"个."&vbCrLf&"共搜索目录:"&DirTotal&"个."&vbcrlf&"文件总数大小"&FormatNumber(FileTotalsize/1024,0)&"kB"&vbCrLf&"用时:"&TimeSpend&"秒." wscript.echotxtResult SubmyFind(ByValthePath) Dimfso,myFolder,myFile,curFolder Setfso=wscript.CreateObject("scripting.filesystemobject") SetcurFolders=fso.getfolder(thePath) DirTotal=DirTotal+1 IfcurFolders.Files.Count>0Then ForEachmyFileIncurFolders.Files IfInStr(1,LCase(Fso.GetExtensionName(myFile.Name)),ext)>0AndGtime(myFile.DateCreated)>Time1AndGtime(myFile.DateCreated)<Time2Then wscript.echoFormatPath(thePath)&"\"&myFile.Name FileTotal=FileTotal+1 FileTotalsize=FileTotalsize+myFile.size EndIf Next EndIf IfcurFolders.subfolders.Count>0Then ForEachmyFolderIncurFolders.subfolders myFindFormatPath(thePath)&"\"&myFolder.Name Next EndIf EndSub FunctionFormatPath(ByValthePath) thePath=Trim(thePath) FormatPath=thePath IfRight(thePath,1)="\"ThenFormatPath=Mid(thePath,1,Len(thePath)-1) EndFunction FunctionGtime(str) str=FormatDateTime(str,2) str1=Split(str,"-",-1,1) Iflen(str1(1))=1thenstr11="0"&str1(1) Iflen(str1(2))=1thenstr12="0"&str1(2) Gtime=str1(0)&str11&str12 EndFunction |
凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢! |
你可能对下面的文章感兴趣
上一篇: 用vbs删除某些类型文件和磁盘空间报告的脚本下一篇: CreateWeb.vbs 代码
关于一个扩展时间段的dir命令的vbs脚本的所有评论
