以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  ftp地址有效，这样写对不对  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=99064)
--  作者：天蝉一线
--  发布时间：2017/4/12 9:29:00
--  ftp地址有效，这样写对不对
If Network.Ping("ftp://用户名:密码@ip地址：端口/") Then
    Messagebox.Show("可以访问ftp了")
End If
--  作者：有点色
--  发布时间：2017/4/12 9:34:00
--  

 要这样处理

 

Dim ftp1 As New FtpClient
ftp1.Host="196.128.143.28"
ftp1.Account = "foxuser"
ftp1.Password = "138238110"
If ftp1.Connected = False \'如果FTP没有连接
    If ftp1.Connect Then \'连接FTP
        ftp1.OpenManager() \'如果连接成功,打开FTP客户端
    Else
        Messagebox.show("连接FTP失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    End If
End If