Unable to run VBScript file bat form if path contains space

Question

I am trying to run myFileToRun.bat file from a path, for example.

D:\My Folder\batchfiles\myFileToRun.bat

Below is the VBScript through which I am trying to run it.

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

I can’t start it, because VBS fails to sayin "The system cannot find the specified file" error. I tried various methods mentioned in other similar posts in stackoverflow and other forums. Most of them say add double quotes.

Note. I tried adding double quotes, double double quotes like

1.WshShell.Run """strCurrentDirectory & "\myFileToRun.bat" "", 0
2.WshShell.Run """"strCurrentDirectory & "\myFileToRun.bat"""", 0
3.WshShell.Run """"strCurrentDirectory & \myFileToRun.bat"""", 0

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

. , , .

: . , script.

Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run "myFileToRun.bat", 0
Set WshShell = Nothing

. .

Answer 1

:

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

Answer 2

, , , .

,

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

:

.

Answer 3

:

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
'********************************************************************