vbs的ftp上传文件问题

Question

写了一段ftp上传的代码,不知道为什么运行结束后,ftp没有上传的文件,代码如下:
我运行成功过,但整理好了以后就不好用了,不知道为什么,大家帮忙看看Dim objFSO, WSHshell
Set objFSO = CreateObject("Scripting.FileSystemObject")
set WSHshell=CreateObject("WScript.Shell")
Set UploadFile = objFSO.opentextfile("D:\X_Session\Upload.dat", 2,True)
UploadFile.WriteLine("129.249.216.246")
UploadFile.WriteLine("develop")
UploadFile.WriteLine("develop")
UploadFile.WriteLine("bin")
UploadFile.WriteLine("cd /export/home/log")Set objFiles = objFSO.GetFolder("D:\X_Session\Out_tmp\").Files
For Each objFile in objFiles
UploadFile.WriteLine("put " & objFile.Path)
NextUploadFile.WriteLine("bye")UploadFile.Close
Set UploadFile = NothingWSHshell.Run "ftp -s:" & "D:\X_Session\Upload.dat", 1, trueSet WSHshell = Nothing
Set objFSO = Nothing

Answer 1

参考
http://hi.baidu.com/10998/blog/item/6deb954f3d08a833aec3abea.html

Answer 2

Dim objFSO, WSHshell 
Set objFSO = CreateObject("Scripting.FileSystemObject") 
set WSHshell=CreateObject("WScript.Shell") 
Set UploadFile = objFSO.opentextfile("D:\X_Session\Upload.dat", 2,True) 
UploadFile.WriteLine("OPEN 129.249.216.246") 
UploadFile.WriteLine("develop") 
UploadFile.WriteLine("develop") 
UploadFile.WriteLine("bin") 
UploadFile.WriteLine("cd /export/home/log") Set objFiles = objFSO.GetFolder("D:\X_Session\Out_tmp\").Files 
For Each objFile in objFiles 
UploadFile.WriteLine("put " & objFile.Path) 
Next UploadFile.WriteLine("bye") UploadFile.Close 
Set UploadFile = Nothing WSHshell.Run "ftp -s:" & "D:\X_Session\Upload.dat", 1, true Set WSHshell = Nothing 
Set objFSO = Nothing大家看一下,我如何能判断FTP连接正确,上传成功,在线等,分不够再加