Question

我从另一个站点获取此脚本，并尝试修改它以搜索两个以上的驱动器，特别是我希望它几乎可以搜索每个驱动器，但只要我添加第三个驱动器盘符脚本就不起作用。

 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

Answer 1

你有2个变量，“vComputer”和“strComputer”。

Visual Basic搜索脚本

1 个答案: