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

[madawei]

代码如下：
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，麻烦大家帮忙看看问题可能出在哪，谢谢！

[hongqi162]

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"

[madawei]

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