【急求高手帮忙】用Internet Transfer控件做FTP文件上传

Question

代码如下：
         Dim right1 As Boolean
         Inet1.URL = "ftp://UserName:MyPassword@remotehost:remoteport/"
         Inet1.Protocol = icFTP
         Inet1.UserName = UserName
         Inet1.Password = MyPassword         Inet1.Execute , "put C:\log.txt"         right1 = Inet1.StillExecuting
         Do While right1
           right1 = Inet1.StillExecuting
           DoEvents
         Loop
         Inet1.Execute , "QUIT"
state已经是8（控件已成功从主机接受反馈信息icDisconnecting）了，但right1上来就是flase，IE中用URL可以直接打开FTP，麻烦大家帮忙看看问题可能出在哪，谢谢！

Answer 1

Inet1.URL = "FTP://ftp.myCompany.com"
Inet1.Password = "I(3Lei#4"
Inet1.UserName = "Jonne Smythe"
Inet1.OpenURL
Inet1.Execute , "SEND C:\MyDocuments\Send.txt SentDocs\Sent.txt"
Inet1.Execute , "QUIT"

Answer 2

hongqi162(失踪的月亮)，你好：
一定要“Inet1.OpenURL”么？还有就是Inet1.Execute , "SEND C:\MyDocuments\Send.txt SentDocs\Sent.txt"可不可以是“Inet1.Execute , "SEND C:\MyDocuments\Send.txt"”？谢谢！