包含vbscript中搜索文件的所有路径的变量
A variable that includes all paths in vbscript to search for a file
所以我正在写一个危险文件(当然有警告)
我去放一个变量来包含系统的所有路径
(显然在此之前有一个字符串来设置变量,但这就是我正在搜索的内容)ex : C:/User/x/file.txt" -> x = Every directory or path.
有没有办法用变量替换 x,这样计算机就不必扫描计算机的一部分,而是一次扫描每个目录?
我不确定这是否是您要查找的内容,但这是一个 VBScript 示例,它搜索父文件夹下所有出现的文件,将所有路径存储到变量 (v) 中,然后输出在父项下找到文件的文件夹结果:
' File to locate under parent folder...
Dim file : file = "index.txt"
Dim parent : parent = "C:\Users\"
' Do the search for file under parent folder...
Dim StdOut : StdOut = ""
Dim StdErr : StdErr = ""
With CreateObject("WScript.Shell")
With .Exec(.ExpandEnvironmentStrings("%COMSPEC% /C dir " & parent & file & " /S /B /A-D"))
Do Until .StdOut.AtEndOfStream
StdOut = StdOut & .StdOut.ReadAll()
StdErr = StdErr & .StdErr.ReadAll()
Loop
End With
End With
' Parse StdOut search results and store paths in v...
Dim result, v : v = ""
For Each result In Split(StdOut, vbCrLf)
If "" = v Then
v = Replace(Replace(result, parent, ""), file, "")
Else
v = v & "|" & Replace(Replace(result, parent, ""), file, "")
End If
Next
v = Split(v, "|")
' Output paths where file was found under parent...
Dim d
WScript.Echo "Found " & file & " in following folders under " & parent
For Each d In v
WScript.Echo d
Next
所以我正在写一个危险文件(当然有警告) 我去放一个变量来包含系统的所有路径 (显然在此之前有一个字符串来设置变量,但这就是我正在搜索的内容)ex : C:/User/x/file.txt" -> x = Every directory or path. 有没有办法用变量替换 x,这样计算机就不必扫描计算机的一部分,而是一次扫描每个目录?
我不确定这是否是您要查找的内容,但这是一个 VBScript 示例,它搜索父文件夹下所有出现的文件,将所有路径存储到变量 (v) 中,然后输出在父项下找到文件的文件夹结果:
' File to locate under parent folder...
Dim file : file = "index.txt"
Dim parent : parent = "C:\Users\"
' Do the search for file under parent folder...
Dim StdOut : StdOut = ""
Dim StdErr : StdErr = ""
With CreateObject("WScript.Shell")
With .Exec(.ExpandEnvironmentStrings("%COMSPEC% /C dir " & parent & file & " /S /B /A-D"))
Do Until .StdOut.AtEndOfStream
StdOut = StdOut & .StdOut.ReadAll()
StdErr = StdErr & .StdErr.ReadAll()
Loop
End With
End With
' Parse StdOut search results and store paths in v...
Dim result, v : v = ""
For Each result In Split(StdOut, vbCrLf)
If "" = v Then
v = Replace(Replace(result, parent, ""), file, "")
Else
v = v & "|" & Replace(Replace(result, parent, ""), file, "")
End If
Next
v = Split(v, "|")
' Output paths where file was found under parent...
Dim d
WScript.Echo "Found " & file & " in following folders under " & parent
For Each d In v
WScript.Echo d
Next