Question

我试图制作一个脚本，在指定的延迟后打开Windows电影播放器，但是我无法通过作为参数传递的文件打开Windows Media Player。

到目前为止我所拥有的：

Dim objShell
Set objShell = WScript.CreateObject( "WScript.Shell" )
objShell.run "WMplayer" & ""C:\Users\Public\Videos\Sample Videos\Wildlife""

我在第3行char 29上收到错误：预期声明结束。

任何人都可以帮助我吗？非常感谢。

Answer 1

您需要引用correctly：

objShell.run "wmplayer" & ""C:\Users\Public\Videos\Sample Videos\Wildlife""

==＆GT;

objShell.run "wmplayer" & " ""C:\Users\Public\Videos\Sample Videos\Wildlife"""

证据：

>> WScript.Echo "wmplayer" & " ""C:\Users\Public\Videos\Sample Videos\Wildlife"""
>>
wmplayer "C:\Users\Public\Videos\Sample Videos\Wildlife"
>>

如果它可以从控制台运行，它将在您的脚本中运行。

对于更结构化/更少错误/更好的扩展方法，请参阅here。

Answer 2

Dim objShell
Set objShell = WScript.CreateObject( "WScript.Shell" )
objShell.run "WMplayer ""C:\Users\Public\Videos\Sample Videos\Wildlife""",1,False

在它们之间不需要 &

OR

Dim objShell,myMedia
Set objShell = WScript.CreateObject( "WScript.Shell" )
myMedia= chr(34) & "C:\Users\Public\Videos\Sample Videos\Wildlife" & chr(34)
objShell.run "WMplayer "& myMedia &"",1,False

VBS WScript.Run带参数？

2 个答案: