VBScript中的If-Else If语句

代码有什么问题？以及

If

语句的使用情况如何？请帮帮我

---

如何改进此代码？

要在不同的驱动器上搜索程序并调用它（可能带有参数和适当的引号），请在驱动器上使用循环：

Else If exist "K:\ICT  project"
    (Set WshShell = CreateObject("WScript.Shell")
    WshShell.Run Chr(34) & "K:\ICT  project" & Chr(34), 0
    Set WshShell = Nothing)
Else If exist "F:\ICT  project"
    (Set WshShell = CreateObject("WScript.Shell")
    WshShell.Run Chr(34) & "F:\ICT  project" & Chr(34), 0
    Set WshShell = Nothing)
Else If exist "E:\ICT  project"
    (Set WshShell = CreateObject("WScript.Shell")
    WshShell.Run Chr(34) & "E:\ICT  project" & Chr(34), 0
    Set WshShell = Nothing)
Else If exist "D:\ICT  project"
    (Set WshShell = CreateObject("WScript.Shell")
    WshShell.Run Chr(34) & "D:\ICT  project" & Chr(34), 0
    Set WshShell = Nothing)
Else If exist "C:\ICT  project"
    (Set WshShell = CreateObject("WScript.Shell")
    WshShell.Run Chr(34) & "C:\ICT  project" & Chr(34), 0
    Set WshShell = Nothing)

输出：

Option Explicit

Const csPrg = "pipapo"

Function qq(s) : qq = """" & s & """" : End Function

Dim goFS : Set goFS = CreateObject("Scripting.FileSystemObject")
Dim sDL, sFSpec, sCmd
For Each sDL In Split("A:\ C:\ K:\ E:\")
    sFSpec = goFS.BuildPath(sDL, csPrg)
    sCmd = Join(Array("%comspec% /c", qq(sFSpec), "/p:arm", qq("one two three"), 4711))
    WScript.Echo sCmd 
    If goFS.FileExists(sFSpec) Then Wscript.Echo "  ==> now run sCmd (and perhaps Exit For)"
Next

---

不知道代码出了什么问题。您收到了什么错误消息和/或预期的行为是什么？是否有任何错误？你是说你不喜欢重复吗？或者有些东西实际上不起作用了吗？你从清楚地描述你遇到的问题开始怎么样？包括错误消息吗？不，它不起作用它不起作用，我的意思是如何在不同的usb驱动器上搜索，并无声地运行可能存在的bat文件。我不是一个程序员，所以如果你能给我一个简单的解释，我该怎么做？？谢谢兄弟

cscript 47922850.vbs
%comspec% /c "A:\pipapo" /p:arm "one two three" 4711
%comspec% /c "C:\pipapo" /p:arm "one two three" 4711
%comspec% /c "K:\pipapo" /p:arm "one two three" 4711
%comspec% /c "E:\pipapo" /p:arm "one two three" 4711
  ==> now run sCmd (and perhaps Exit For)