Warning: file_get_contents(/data/phpspider/zhask/data//catemap/8/variables/2.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Variables 包含vbscript中用于搜索文件的所有路径的变量_Variables_Vbscript - Fatal编程技术网

Variables 包含vbscript中用于搜索文件的所有路径的变量

Variables 包含vbscript中用于搜索文件的所有路径的变量,variables,vbscript,Variables,Vbscript,所以我在写一个危险的文件(当然还有一个警告) 我去放了一个变量来包含系统的所有路径 (显然在此之前有一个字符串用于设置变量,但这正是我搜索的内容)例如:C:/User/x/file.txt“->x=每个目录或路径。 有没有一种方法可以让变量替换x,这样计算机就不必一次扫描计算机的一部分,而是扫描每个目录?我不确定这是否是您要查找的,但这里有一个VBScript示例,它搜索父文件夹下的所有文件,将所有路径存储到一个变量中(v),然后输出在父文件夹下找到文件的文件夹结果: ' File to loc

所以我在写一个危险的文件(当然还有一个警告) 我去放了一个变量来包含系统的所有路径 (显然在此之前有一个字符串用于设置变量,但这正是我搜索的内容)例如:C:/User/x/file.txt“->x=每个目录或路径。
有没有一种方法可以让变量替换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

你能回答你的问题并添加你的代码吗?真的是这样吗?idk我想用用户变量来做你告诉我的事情,但用路径来代替?Dim fso,strPath Set fso=CreateObject(“Scripting.FileSystemObject”)strPath=CreateObject(“WScript.Network”).Path x(来自问题)=“&Path&”?