Visual Basic搜索腳本

我從另一個站點獲得了此腳本，並嘗試修改它以搜索兩個以上的驅動器，具體而言，我希望它能夠搜索幾乎所有可能的驅動器，但只要我添加第三個驅動器盤符，腳本不起作用。Visual Basic搜索腳本

strComputer = "." 

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") 

Set colFiles = objWMIService.ExecQuery _ 
    ("Select * from CIM_DataFile Where Extension = 'mdb' AND (Drive = 'B:' OR Drive = 'C:' OR Drive = 'D:')") 

' If colFiles.Count = 0 Then 
'  Wscript.Quit 
' End If 

Set objTextFile = wshfso.CreateTextFile("c:\temp\" & vComputer & ".txt " , True) 

For Each objFile in colFiles 
    objTextFile.Write(objFile.Drive & objFile.Path & "") 
    objTextFile.Write(objFile.FileName & "." & objFile.Extension & ", Size ") 
    objTextFile.Write(objFile.FileSize /1024 & "kb" & vbCrLf) 
Next

來源

2014-02-24 user3348484

你是什麼意思的「不工作」？請描述。 – celerno

應該是更具體的，沒有什麼是寫入文本文件，此外，如果我取消註釋如果colFiles行計數返回0並退出。 – user3348484

但是，如果我只有驅動器b：和c：在查詢中，腳本轉儲到文本文件並且有數據。 – user3348484