Vbscript将文件夹列表复制到FTP服务器

嗨，我有下面的脚本

Set oShell=CreateObject（“Shell.Application”）
设置objFSO=CreateObject（“Scripting.FileSystemObject”）
'要上载的文件或文件夹的路径
Source0=“C:\Users\User\Desktop\Work\CRC01\8BR01547\61000856”
FTPUpload（Source0）
子FTPUPPLOAD（源0）
出错时继续下一步
'复制选项：16=对所有选项都是
常数copyType=16
'FTP等待时间（毫秒）
等待时间=80000
FTPUser=“马丁”
FTPPass=“”
FTPHost=“PC247”
FTPDir0=“/Martin/61000856”
strFTP=“ftp://”&FTPUser&“：”&FTPPass&“@”&FTPHost&FTPDir0
Set objFTP=oShell.NameSpace（strFTP）
'在FTP站点上创建新文件夹
'objFTP.NewFolder“FTP备份”
'上载单个文件
如果objFSO.FileExists（Source0），则
设置objFile=objFSO.getFile（Source0）
strParent=objFile.ParentFolder
Set objFolder=oShell.NameSpace（strParent）
设置objItem=objFolder.ParseName（objFile.Name）
Echo“上载文件”&objItem.Name&“到”&strFTP
objFTP.CopyHere-objItem，copyType
如果结束
'上载文件夹中的所有文件
如果objFSO.FolderExists（Source0），则
'下面的代码可用于上载整个文件夹
设置objFolder=oShell.NameSpace（Source0）
Echo“上载文件夹”&Source0&“到”&strFTP
objFTP.CopyHere objFolder.Items，copyType
如果结束
如果错误号为0，则
Wscript.Echo“错误：&Err.Description
如果结束
'等待上载
WScript.睡眠等待时间
末端接头