试着这样做：

Dim WshShell, strCurrentDirectory  
Set WshShell = CreateObject("WScript.Shell")  
strCurrentDirectory    = WshShell.CurrentDirectory  
WshShell.Run """" & strCurrentDirectory & "\di r\myFileToRun.bat" & """" , 0  
Set WshShell = Nothing

你只需要正确地转义字符串中的引号，规则是每当你想在字符串中显示一个引号时，它就加倍。
所以，这个命令

WshShell.Run strCurrentDirectory & "\myFileToRun.bat" , 0

此时将传递为;

D:\My Folder\batchfiles\myFileToRun.bat

与大多数Windows程序一样，当传递时，带有空格的路径需要用引号括起来，以确保识别完整的路径，此时Run()正在查看

D:\My

其余的作为参数传递给My程序。由于系统无法找到My程序，因此会导致
系统找不到指定的文件
错误.
为了解决这个问题，我们需要传递一个带引号的字符串 （为我们想要包含的每个文字引号加倍引号）

WshShell.Run """" & strCurrentDirectory & "\myFileToRun.bat""", 0

它将被传递为;

"D:\My Folder\batchfiles\myFileToRun.bat"

**注意：**当与变量连接时，我们仍然需要正确地打开和关闭字符串。对于上面的情况，我们将字符串""""连接到一个变量上，该变量简单地为""，但带有一个开始和结束引号来表示文字字符串。

变量也需要正确地连接到字符串，否则你会得到奇怪的结果，例如你第一次尝试转义字符串

WshShell.Run """strCurrentDirectory & "\myFileToRun.bat" "", 0

会导致;
预期语句结束
因为它不是正确终止的字符串。

您可以使用此函数向变量添加双引号：

Function DblQuote(Str)
    DblQuote = Chr(34) & Str & Chr(34)
End Function

因此，代码变得易于阅读：

Dim WshShell, strCurrentDirectory  
Set WshShell = CreateObject("WScript.Shell")  
strCurrentDirectory = WshShell.CurrentDirectory  
wscript.echo DblQuote(strCurrentDirectory & "\My Folder\myFileToRun.bat")
WshShell.Run DblQuote(strCurrentDirectory & "\My Folder\myFileToRun.bat"),0 
Set WshShell = Nothing
'********************************************************************
Function DblQuote(Str)
    DblQuote = Chr(34) & Str & Chr(34)
End Function
'********************************************************************

已经尝试了所有上述方法，用于在Windows 7 PC上正常工作的VBScript文件，并在Windows 10 PC上失败。VBScript接受字符串中的空格，但不接受“run”方法中的空格。使用诸如以下的行进行排序
wss = WScript. Shell Object（“WScript.Shell”）
wss.run =“C：\Program Files\xxx.exe”
会惨败在这种情况下，解决方案很简单：你定义一个链接到xxx，xxx.lnk，将它存储在一个路径中没有空格的文件夹中，例如
C：\用户\链接
然后在VBScript中使用
wss.run =“C：\Users\Links\xxx.lnk”
这将工作，但对于一些更复杂的VBScript的返工可能是主要的。可惜。虫子就是虫子。