Foxtable(狐表)用户栏目专家坐堂 → ftp地址有效,这样写对不对


  共有1414人关注过本帖树形打印复制链接

主题:ftp地址有效,这样写对不对

帅哥哟,离线,有人找我吗?
天蝉一线
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:370 积分:3195 威望:0 精华:0 注册:2016/6/16 16:11:00
ftp地址有效,这样写对不对  发帖心情 Post By:2017/4/12 9:29:00 [只看该作者]

If Network.Ping("ftp://用户名:密码@ip地址:端口/") Then
    Messagebox.Show("可以访问ftp了")
End If

 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By: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


 回到顶部