用inet上传文件一问

我用控件Inet上传一个文件到服务器:
假设userName是abc,Password是123456

Inet1.URL= "abc:123456@abc.com "
Inet1.RemotePort = 21
Inet1.Protocol = icFTP
Inet1.Execute , "PUT " & "d:\aaa.txt aaa.txt "

Do While Inet1.StillExecuting
DoEvents
Loop
MsgBox "上传完毕! ", vbInformation, "提示 "

每次运行，提示上传结束，可是用上传工具在服务器上却看不到所传的aaa.txt
我是在VIP.51.net申请的空间，如果上面的代码不正确，应该如何操作。


请高手指教。

[解决办法]
Inet1.Execute , "CD " & "D:\servePath "
Inet1.Execute , "PUT " & "d:\aaa.txt aaa.txt "

[解决办法]
实时错误 '35764 ' 仍在执行上一请求
说明还没有执行完，你加入一延时的函数，等待执行完