在多個文件夾中搜索文本文件

Question

我試圖創建我的第一個VBS腳本，我迷路了。我需要能夠搜索4個網絡路徑中的特定文本。基本上這是4個獨立的日誌文件，只保存文本文件，沒有子目錄或任何東西。我想如果文本被發現在任何一個網絡路徑中，它只會帶來這條路徑，而不會讓剩下的路徑出現。文本文件的名稱應該是用戶輸入驅動的。然而，下面的代碼不起作用，我不知道爲什麼..

有沒有人可以指出我在正確的方向嗎？還是幫助我？我能開闢網絡路徑，但不知道怎麼做休息：這是我到目前爲止有：

Dim fso, folder, file 
Dim folderName, searchFileName, renameFileTo 

' Parameters 
folderName  = "\\servername\c$\Program Files (x86)\LOGS" 
searchFileName = "number_SUMMARY.txt" 


' Create filesystem object and the folder object 
' how the FSO works: http://msdn.microsoft.com/en-us/library/2z9ffy99(v=vs.84).aspx 
Set fso = CreateObject("Scripting.FileSystemObject") 
Set folder = fso.GetFolder(folderName) 

' Loop over all files in the folder until the searchFileName is found 
For each file In folder.Files  
    ' See if the file starts with the name we search 
    ' how instr works: http://www.w3schools.com/vbscript/func_instr.asp 
    If instr(file.name, searchFileName) = 1 Then 
     result = MsgBox ("You Found it!", _ 
    vbAbortRetryIgnore+vbExclamation+vbDefaultButton2, "You Found it") 
    Exit For 
    End If 
Next 

在此先感謝您的幫助！

Answer 1

1. 處理您的規格。你想在四個特定的地點尋找一個文件x.txt，它恰好是網絡連接嗎？或者你需要在這四個文件夾的任何子目錄中找到一個或多個（第一個？）x.txt文件？你如何得到用戶的輸入？
2. 爲了效率和易用性，當「Scripting.FileSystemObject」工作時，我會避免使用「Shell.Application」。如果您需要遞歸搜索，請考慮使用dir /s /b。
3. （至少）：做一些研究'檢查文件的存在'，並在你的問題中加入一些代碼。