用inet上传文件一问,该怎么解决

用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 ' 仍在执行上一请求
说明还没有执行完，你加入一延时的函数，等待执行完