vb写ftp上传功能的疑问

net1Protocol = icFTP
Inet1RemoteHost = ServerName'服务器地址
Inet1RemotePort = 21'FTP端口
Inet1UserName = uName'用户名
Inet1Password = uPWS'密码
下载文件：
Inet1Execute "", "GET 1txt d:\1txt"
ri = Inet1StillExecuting
Do While ri
ri = Inet1StillExecuting
DoEvents
Loop
上传文件：
Inet1Execute "", "PUT d:\1txt 1txt"
ri = Inet1StillExecuting
Do While ri
ri = Inet1StillExecuting
DoEvents
Loop

给你一个提示，你在调试一下：
第一步：你要设置信息：
Inet1Protocol = icFTP
Inet1RemoteHost = ServerName'服务器地址
Inet1RemotePort = 21'FTP端口
Inet1UserName = uName'用户名
Inet1Password = uPWS'密码
你要下载文件，要使用如下的代码：
Inet1Execute "", "GET 1txt d:\1txt"
ri = Inet1StillExecuting
Do While ri
ri = Inet1StillExecuting
DoEvents
Loop
你 Inet1Execute , "Get 5944htm D:\5944htm"出了问题！

---