vbs搜索效率如何提高?只需要将网小程序改方便点
'把网上的一个小程序改得方便了点,这个搜索次效率很好。
on error resume next
Dim keyWord, DirTotal, TimeSpend, FileTotal, Fso, outFile, txtResult, txtPath, sPath
Const MY_COMPUTER = &H11&
Const WINDOW_HANDLE = 0
Const OPTIONS = 0
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(My_Computer)
Set objFolderItem = objFolder.Self
strPath = objFolderItem.Path
Set objFolder = objShell.BrowseForFolder(WINDOW_HANDLE, "选择你要搜索的文件夹:", OPTIONS, strPath)
If objFolder Is Nothing Then
msgbox "您没有选择任何有效目录!"
wscript.quit
else
Set objFolderItem = objFolder.Self
sPath = objFolderItem.Path
txtpath=sPath
Set Fso = wscript.CreateObject("scripting.filesystemobject")
FileTotal = 0
DirTotal = 0
'sPath = left(Wscript.ScriptFullName,len(Wscript.ScriptFullName)-len(Wscript.ScriptName))
'txtPath = trim(inputbox("你选的目录是"&sPath,"文件搜索",sPath))
keyWord = LCase(inputbox("请输入搜索关键字点Cancel的话会得到目录列表:","文件搜索","mp3"))
set outFile = Fso.createtextfile(sPath & "\SearchResult.txt")
outFile.writeline "开始搜索..."
outFile.writeline "起启目录:" & txtPath
TimeSpend = Timer
myFind txtPath
TimeSpend = round(Timer - TimeSpend,2)
txtResult = "搜索完成!" & vbCrLf & "共找到文件:" & FileTotal & "个." & vbCrLf & "共搜索目录:" & DirTotal & "个." & vbCrLf & "用时:" & TimeSpend & "秒."
outFile.write txtResult
msgbox txtResult &"结果保存在"&sPath &"\SearchResult.txt"
outFile.close
set outFile = nothing
set Fso = nothing
Sub myFind(ByVal thePath)
Dim fso, myFolder, myFile, curFolder
Set fso = wscript.CreateObject("scripting.filesystemobject")
Set curFolders = fso.getfolder(thePath)
DirTotal = DirTotal 1
If curFolders.Files.Count > 0 Then
For Each myFile In curFolders.Files
If InStr(1, LCase(myFile.Name), keyWord) > 0 Then
outFile.WriteLine FormatPath(thePath) & "\" & myFile.Name
FileTotal = FileTotal 1
End If
Next
End If
If curFolders.subfolders.Count > 0 Then
For Each myFolder In curFolders.subfolders
myFind FormatPath(thePath) & "\" & myFolder.Name
Next
End If
End Sub
Function FormatPath(ByVal thePath)
thePath = Trim(thePath)
FormatPath = thePath
If Right(thePath, 1) = "\" Then FormatPath = Mid(thePath, 1, Len(thePath) - 1)
End Function
End if
=======================================================================
附件:关于打开目录的方面:
Private Const CSIDL_DESKTOP = &H0 '
Private Const CSIDL_INTERNET = &H1 ' Internet Explorer (icon on desktop)
Private Const CSIDL_PROGRAMS = &H2 ' Start Menu\Programs
Private Const CSIDL_CONTROLS = &H3 ' My Computer\Control Panel
Private Const CSIDL_PRINTERS = &H4 ' My Computer\Printers
Private Const CSIDL_PERSONAL = &H5 ' My Documents
Private Const CSIDL_FAVORITES = &H6 '
Private Const CSIDL_STARTUP = &H7 ' Start Menu\Programs\Startup
Private Const CSIDL_RECENT = &H8 '
Private Const CSIDL_SENDTO = &H9 '
Private Const CSIDL_BITBUCKET = &HA '
Private Const CSIDL_STARTMENU = &HB '
Private Const CSIDL_MYDOCUMENTS = &HC ' logical "My Documents" desktop icon
Private Const CSIDL_MYMUSIC = &HD ' "My Music" folder
Private Const CSIDL_MYVIDEO = &HE ' "My Videos" folder
Private Const CSIDL_DESKTOPDIRECTORY = &H10 '
Private Const CSIDL_DRIVES = &H11 ' My Computer
Private Const CSIDL_NETWORK = &H12 ' Network Neighborhood (My Network Places)
Private Const CSIDL_NETHOOD = &H13 '
Private Const CSIDL_FONTS = &H14 ' windows\fonts
Private Const CSIDL_TEMPLATES = &H15
Private Const CSIDL_COMMON_STARTMENU = &H16 ' All Users\Start Menu
Private Const CSIDL_COMMON_PROGRAMS = &H17 ' All Users\Start Menu\Programs
Private Const CSIDL_COMMON_STARTUP = &H18 ' All Users\Startup
Private Const CSIDL_COMMON_DESKTOPDIRECTORY = &H19 ' All Users\Desktop
Private Const CSIDL_APPDATA = &H1A '
Private Const CSIDL_PRINTHOOD = &H1B '
Private Const CSIDL_LOCAL_APPDATA = &H1C '
Private Const CSIDL_ALTSTARTUP = &H1D ' non localized startup
Private Const CSIDL_COMMON_ALTSTARTUP = &H1E ' non localized common startup
Private Const CSIDL_COMMON_FAVORITES = &H1F
Private Const CSIDL_INTERNET_CACHE = &H20 'TEMPORARY INTERNET FILES
Private Const CSIDL_COOKIES = &H21
Private Const CSIDL_HISTORY = &H22
Private Const CSIDL_COMMON_APPDATA = &H23 ' All Users\Application Data
Private Const CSIDL_WINDOWS = &H24 ' GetWindowsDirectory()
Private Const CSIDL_SYSTEM = &H25 ' GetSystemDirectory()
Private Const CSIDL_PROGRAM_FILES = &H26 ' C:\Program Files
Private Const CSIDL_MYPICTURES = &H27 ' C:\Program Files\My Pictures
Private Const CSIDL_PROFILE = &H28 ' USERPROFILE
Private Const CSIDL_SYSTEMX86 = &H29 ' x86 system directory on RISC
Private Const CSIDL_PROGRAM_FILESX86 = &H2A ' x86 C:\Program Files on RISC
Private Const CSIDL_PROGRAM_FILES_COMMON = &H2B ' C:\Program Files\Common
Private Const CSIDL_PROGRAM_FILES_COMMONX86 = &H2C ' x86 Program Files\Common on RISC
Private Const CSIDL_COMMON_TEMPLATES = &H2D ' All Users\Templates_
Private Const CSIDL_COMMON_DOCUMENTS = &H2E ' All Users\Documents
Private Const CSIDL_COMMON_ADMINTOOLS = &H2F ' All Users\Start Menu\Programs\Administrative Tools
Private Const CSIDL_ADMINTOOLS = &H30 '
Private Const CSIDL_CONNECTIONS = &H31 ' Network and Dial-up Connections
Private Const CSIDL_COMMON_MUSIC = &H35 ' All Users\My Music
Private Const CSIDL_COMMON_PICTURES = &H36 ' All Users\My Pictures
Private Const CSIDL_COMMON_VIDEO = &H37 ' All Users\My Video
Private Const CSIDL_RESOURCES = &H38 ' Resource Direcotry
Private Const CSIDL_RESOURCES_LOCALIZED = &H39 ' Localized Resource Direcotry
Private Const CSIDL_COMMON_OEM_LINKS = &H3A ' Links to All Users OEM specific apps
Private Const CSIDL_CDBURN_AREA = &H3B ' USERPROFILE\Local Settings\Application Data\Microsoft\CD Burning
Private Const CSIDL_COMPUTERSNEARME = &H3D ' Computers Near Me (computered from Workgroup membership)
Private Const CSIDL_FLAG_CREATE = &H8000 ' combine with CSIDL_ value to force folder creation in SHGetFolderPath()
Private Const CSIDL_FLAG_DONT_VERIFY = &H4000 ' combine with CSIDL_ value to return an unverified folder path
Private Const CSIDL_FLAG_NO_ALIAS = &H1000 ' combine with CSIDL_ value to insure non-alias versions of the pidl
Private Const CSIDL_FLAG_PER_USER_INIT = &H800 ' combine with CSIDL_ value to indicate per-user init (eg. upgrade)
Private Const CSIDL_FLAG_MASK = &HFF00 ' mask for all possible flag values
=============================================================================
csrf攻击的步骤 防御csrf的几种策略
CSRF是什么?CSRF(Cross-site request forgery),中文名称:跨站请求伪造,也被称为:one click attack session riding,缩写为:CSRF XSRF。CSRF(Cross Site Request Forgery, 跨站域请求伪造)是一
详情2018-02-25 11:52:28责编:llp 来源:驱动管家搜索引擎怎么用?搜索引擎怎么搜索资料?
如何使用搜索引擎搜索资料,搜索引擎的使用方法1、打开搜索引擎1)打开网页浏览器,在地址栏输入百度搜索的网址 www baidu com 然后点右边的转到按钮,或者按一下回车键;2)进入百度搜索页面后,在中间输入要
详情2018-01-30 18:48:48责编:llp 来源:驱动管家心脏出血漏洞检测 心脏出血漏洞检测软件
小编带来了心脏出血漏洞检测软件下载地址,大家可以下载心脏出血漏洞一键检测app,为了我们账户的安全,大家都可以检测一下自己的手机是否存在心脏出血漏洞哦~尽管“心脏出血”是一个网络漏洞,但是某些手机App通
详情2018-01-07 08:24:37责编:llp 来源:驱动管家为什么无法连接3389?3389无法连接有哪些原因?
1、服务器在内网。2、做了tcp ip筛选。先执行下面cmd命令:cmd c regedit -e c: 1 reg HKEY_LOCAL_MACHINE SYSTEM ControlSet001 Services Tcpip,导出注册表里关于TCP IP筛选的第一处cmd c regedit -e
详情2018-03-06 14:24:42责编:llp 来源:驱动管家入侵网站实战 如何入侵采用动网系统的网站?
近日比较无聊,于是就想通过入侵网站来练练手。因为我是菜鸟,大站就只能看而不能玩,所以就找了一些别人都会的站入侵。由于最近入侵动网比较火,就选择动网吧。至于怎么找有漏洞的动网,前几期黑防光盘中有工具
详情2018-02-23 16:57:26责编:llp 来源:驱动管家抵御ddos攻击需要做什么?怎么部署ddos攻击的防御方法?
对于DDoS攻击来说并没有100%有效的防御手段。但是由于攻击者必须付出比防御者大得多的资源和努力才能拥有这样的“动力”,所以只要我们更好的了解DDoS攻击,积极部署防御措施,还是能够在很大程度上缓解和抵御这
详情2018-03-02 09:02:08责编:llp 来源:驱动管家菜鸟寻找网站注入点,入侵网站后台的探索步骤
先把目标网站打开现在开始找注入点 如图:然后手工检测and 1=1返回信息正常该点可以注入恭喜,该URL可以注入!数据库类型:Access数据库现在用明小子来猜解用户和密码这里菜鸟门应该都会,我就不做演示了看操作用
详情2018-02-10 14:06:55责编:llp 来源:驱动管家Webshell查杀工具的原理 Webshell查杀工具怎么查杀?
0×00 前言大部分Webshell查杀工具都是基于关键字特征的,通常他们会维护一个关键字列表,以此遍历指定扩展名的文件来进行扫描,所以可能最先想到的是各种字符串变形,下面总结了一些小的方法,各种不足之前还请
详情2018-03-12 09:43:59责编:llp 来源:驱动管家什么是unicode?字节和字符的区别是什么?
介绍Unicode之前,首先要讲解一些基础知识。虽然跟Unicode没有直接的关系,但想弄明白Unicode,没这些还真不行。字节和字符的区别咦,字节和字符能有什么区别啊?不都是一样的吗?完全正确,但只是在古老的DOS时
详情2018-01-20 12:09:39责编:llp 来源:驱动管家asp基础教程 验证asp注入的万能登录密码
《黑客手册》样刊里面,oldjun提到一种新的万能登陆密码。比如网上有很多这样的登陆验证代码:程序代码
详情2018-02-02 15:36:03责编:llp 来源:驱动管家
- 如何保护电脑cmd权限?加密cmd的方法是什么?
- xp Ghost系统安装显卡驱动出现驱动安装失败要怎么修复
- Win8无法启动安全中心服务怎么办
- Win8如何修复 Win8停止工作后的修复方法
- word文档为什么不能编辑?word文档不能编辑的原因和解决方法分析
- 什么叫做pptv聚力?pptv聚力的一些相关介绍
- 《决战!平安京》游戏最近更新版本 对游戏举报系统也升级
- 微软早就将Cortana整合到Outlook中
- 高人气音乐节奏游戏CytusII正式在国区上线 售价为12元
- 跨境电商已覆盖绝大部分国家和地区
- 魅蓝E3将会搭载新的CMOS 比Note6更好
- 如何设置电脑从光驱启动 尝试以下方法
- 七喜hedy笔记本电脑开机进入BIOS的方法
- 乐视max pro配置如何?性价比高不高?
- 诺基亚xl官方价格是多少?多少钱能买到诺基亚xl?
- 蓝牙耳机辐射大吗 对身体有害吗 影响健康吗
- 显示器颜色不正常怎么办 显示器颜色不正常的解决办法分享
- 分析入侵服务器的脚本代码 服务器存在什么安全漏洞?
- 偷取Cookie的方法 如何将cookie等信息传到我们的站点?
- 在Win7系统如何解决电脑没有声音的问题