mm禁处受辱,宋茜圭贤最强情侣,揭晓兮
'把网上的一个小程序改得方便了点，这个搜索次效率很好。
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 ' <desktop>
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 ' <user name>\favorites
private const csidl_startup = &h7 ' start menu\programs\startup
private const csidl_recent = &h8 ' <user name>\recent
private const csidl_sendto = &h9 ' <user name>\sendto
private const csidl_bitbucket = &ha ' <desktop>\recycle bin
private const csidl_startmenu = &hb ' <user name>\start menu
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 ' <user name>\desktop
private const csidl_drives = &h11 ' my computer
private const csidl_network = &h12 ' network neighborhood (my network places)
private const csidl_nethood = &h13 ' <user name>\nethood
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 ' <user name>\application data
private const csidl_printhood = &h1b ' <user name>\printhood
private const csidl_local_appdata = &h1c ' <user name>\local settings\applicaiton data (non roaming)
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 ' <user name>\start menu\programs\administrative tools
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
如对本文有疑问，请在下面进行留言讨论，广大热心网友会与你互动！！
点击进行留言回复
我要评论
网友评论