VBS 下如何调用SyncToy 2.1并实现每60秒一次拷贝文件？

我自己做了小程序如下，但是还是无法实现功能，请教高手到底问题出在什么地方？
查看属性SyncToyCmd 有个“-R”，但是不知道在VBS下怎么用，郁闷！！！

Do

CopyFiles

wscript.sleep 10000

loop

' Copy Files

Sub CopyFiles

Dim WsShell
Set WsShell = CreateObject("WScript.Shell")
'WsShell.Run chr(34) & "C:\Program Files\SyncToy 2.1\SyncToyCmd.exe" & "-R" & chr(34),1,true
WsShell.Run "cmd /c ""C:\Program Files\SyncToy 2.1\SyncToycmd.exe"" -R""My Folder Pair""", 1, True

'Command.Run """c:\Program Files (x86)\SyncToy 2.1\SynctoyCmd.exe"" -r"

'Set WsShell = Nothing


End Sub

请教各位高手，有谁能帮我程序改一下，看具体怎么用？谢谢！