vbs 的FTP上传下载问题

[HAOHAO]

请教各位，我用以下方法上传文件至FTP
但是怎么都上传不成功，不知道是为啥啊。
如果把strFtpUrl换成本地文件夹，就能成功。请教各位哥哥姐姐！感激不尽！

Const LOCAL_FOLDER = "E:\Work"
Const strFileName ="test.txt"

'Application
Set objShell = Createobject("Shell.Application")
'FileSystemobject
Set objFs = Createobject("Scripting.FileSystemobject")
strFtpUrl = "ftp://" & FTP_USER & ":" & FTP_PWD & "@" & FTP_HOST & "/" & "test1"
Set obj2=objShell.NameSpace(LOCAL_FOLDER)
Set objFolderItems = obj2.Items()

For i = 0 To objFolderItems.Count - 1
Set ofitem = objFolderItems.Item(i)
If strFileName = ofitem.Name Then
Set FD = objShell.NameSpace(strFtpUrl)
FD.CopyHere(ofitem)
End If
Next

[HAOHAO]

FD.CopyHere(ofitem)
后加上这句

msgbox("ok")
拷贝就成功了。

╮(╯▽╰)╭太折腾人了。
我发誓以后都不用VBS了。

[Zhuang_Zitao]

谢谢楼主，帮了我大忙。