vb ftp 文件下载 （高手帮加一个判断语句）

vb ftp 文件下载

Private Sub Command1_Click()
Inet1.Protocol = icFTP
    Inet1.URL = "ftp://192.168.0.254"
    Inet1.RemotePort = 21
    Inet1.UserName = "a"
    Inet1.Password = "123"
 
    Inet1.Cancel
    Call Inet1.Execute(, "GET 1.rar c:\1.rar")
    Do While Inet1.StillExecuting
    DoEvents
    Loop

IF 连接不了，下载不到文件 THEN
MSGBOX "连接失败无法下载"
END IF

End Sub

---

什么问题？
搞个免费的ftp dll吧

---

如何判断这段代码是否连接了到了服务器，

Private Sub Command1_Click()
Inet1.Protocol = icFTP
      Inet1.RemoteHost = ServerName'服务器地址
      Inet1.RemotePort = 21'FTP端口
      Inet1.UserName = uName'用户名
      Inet1.Password = uPWS'密码

'上传文件：
Inet1.Execute "", "PUT d:\1.txt 1.txt"
        ri = Inet1.StillExecuting
        Do While ri
          ri = Inet1.StillExecuting
          DoEvents
        Loop

‘-----------------------