ど素人ですいません。
あるフォルダを、別のところにランダムな数字を付加したフォルダ名でコピーしたいと思い、

Option Explicit
Dim objFS
Set objFS = WScript.CreateObject("Scripting.FileSystemObject")

randomize
x = int(rnd*50000)
dry = "C:\Documents and Settings\Administrator\Testfolder" & x & "testtest"
objFS.CopyFolder "C:\Documents and Settings\Administrator\Testfolder\testtest",dry, True

を実行しようとすると、
エラー：　この変数は宣言されていません。　: 'x'
というエラーメッセージが出るのですが、文法的に間違っているのでしょうか？