请问这段代码为什么达不到我想要的效果（难道vbs不能传递变量）

dim ws
dim str1
dim str2
dim source
dim destination

dim arr1

dim arr2
str1=inputbox("请输入想要复制文件夹结构的源目录","目录结构复制器")
str2=inputbox("请输入想要复制文件夹结构的源目录","目录结构复制器")
arr1=split(str1,"")
arr2=split(str2,"")

for each one in arr1
path=path&one
next
for each one in arr2
destination=destination&one
next

set ws=Wscript.CreateObject("wscript.shell")
command="cmd /c xcopy /t /e " &""&source&""&destination
ws.run command,,true

dim ws
dim str1
dim str2
dim source
dim destination

dim arr1

dim arr2
str1=inputbox("请输入想要复制文件夹结构的源目录","目录结构复制器")
str2=inputbox("请输入想要复制文件夹结构的源目录","目录结构复制器")
arr1=split(str1," ")
arr2=split(str2," ")

for each one in arr1
source=source&one
next
for each one in arr2
destination=destination&one
next

set ws=Wscript.CreateObject("wscript.shell")
command="cmd /c xcopy /t /e /i /q" &" """&source&""" """&destination&"""" ' 源和目的目录参数之间要用空格隔开
ws.run command,true ' 不显示控制台窗口