這篇文章主要講解了“vbs如何搜索文件名或者得到目錄列表”，文中的講解內(nèi)容簡(jiǎn)單清晰，易于學(xué)習(xí)與理解，下面請(qǐng)大家跟著小編的思路慢慢深入，一起來研究和學(xué)習(xí)“vbs如何搜索文件名或者得到目錄列表”吧！

創(chuàng)新互聯(lián)公司專業(yè)為企事業(yè)單位提供成都網(wǎng)站建設(shè)公司、成都網(wǎng)站設(shè)計(jì)，網(wǎng)站優(yōu)化、微信開發(fā)、手機(jī)網(wǎng)站建設(shè)、空間域名、網(wǎng)頁空間、企業(yè)郵箱等互聯(lián)網(wǎng)基礎(chǔ)服務(wù)。成立與2013年，我們先后簽約上千多家中小型企業(yè)和科技發(fā)展公司的網(wǎng)站建設(shè)和網(wǎng)站推廣項(xiàng)目。通過多年的創(chuàng)新發(fā)展，已發(fā)展成為專業(yè)能力較強(qiáng)，服務(wù)較好的建站公司。

'把網(wǎng)上的一個(gè)小程序改得方便了點(diǎn)，這個(gè)搜索次效率很好。

復(fù)制代碼 代碼如下:

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("請(qǐng)輸入搜索關(guān)鍵字點(diǎn)Cancel的話會(huì)得到目錄列表:","文件搜索","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 & "個(gè)." & vbCrLf & "共搜索目錄:" & DirTotal & "個(gè)." & vbCrLf & "用時(shí):" & TimeSpend & "秒."  
outFile.write txtResult  
msgbox txtResult &"結(jié)果保存在"&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

=======================================================================

附件：關(guān)于打開目錄的方面：

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

感謝各位的閱讀，以上就是“vbs如何搜索文件名或者得到目錄列表”的內(nèi)容了，經(jīng)過本文的學(xué)習(xí)后，相信大家對(duì)vbs如何搜索文件名或者得到目錄列表這一問題有了更深刻的體會(huì)，具體使用情況還需要大家實(shí)踐驗(yàn)證。這里是創(chuàng)新互聯(lián)網(wǎng)站建設(shè)公司，，小編將為大家推送更多相關(guān)知識(shí)點(diǎn)的文章，歡迎關(guān)注！

標(biāo)題名稱：vbs如何搜索文件名或者得到目錄列表-創(chuàng)新互聯(lián)
分享鏈接：http://chinadenli.net/article6/dgpeig.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站收錄、移動(dòng)網(wǎng)站建設(shè)、定制開發(fā)、軟件開發(fā)、Google、網(wǎng)頁設(shè)計(jì)公司

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來源： 創(chuàng)新互聯(lián)