VBScriptでのrobocopyについて

Question

前提・実現したいこと

VBScriptでrobocopyをしようとしましたがエラーになり上手くいきません。
修正すべき所は何処でしょうか？
またこれで指定したパスからパスへの差分バックアップは可能でしょうか？

発生している問題・エラーメッセージ

行3 
文字　22 
エラー　ステートメントの末尾が不正です

該当のソースコード

Sub RunRoboCopy1()
 
Dim WSH, wExec, sCmd As String, Result As String
Dim FF As String, TF As String
 
FF = "C:\Users\ユーザ名\Downloads\テスト" 
TF = "C:\Users\ユーザ名\Downloads\テスト入れ物" 
 
    Set WSH = CreateObject("WScript.Shell")
 
 
    sCmd = "robocopy " & FF & " " & TF & " /mir" 
 
    Set wExec = WSH.Exec("%ComSpec% /c " & sCmd) 
 
 
    Do While wExec.Status = 0  
        DoEvents
    Loop
 
    Result = wExec.StdOut.ReadAll 
    Debug.Print Result 
 
    Set wExec = Nothing
    Set WSH = Nothing
 
 
End Sub

試したこと

補足情報（FW/ツールのバージョンなど）

VBScript　メモ帳で実行

Answer 1

As String は使えません。
プログラムの基本構文が分かる人へのVBScriptのまとめ

Comments

[ionn]

3,4行目を下記にしました。
Dim WSH, wExec, sCmd , Result
Dim FF , TF

エラーが出なくなりましたが、robocopyが上手くいきません。
指定したパスからパスへの差分バックアップはどこをどのように変えたら上手くいきますでしょうか？
教えてください。お願いします。

[ionn]

回答ありがとうございました。

Answer 2

Shell.Execを使ったら無事に解決しました。
なのでこの質問は締めさせて頂きます。