以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  ftp中端口号不是默认的21 是2123怎么在代码中体现呢?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=136259)

--  作者:李孝春
--  发布时间:2019/6/10 14:49:00
--  ftp中端口号不是默认的21 是2123怎么在代码中体现呢?
ftp端口号怎么定义在代码中呢?

代码如下:
Dim ftp1 As New FtpClient
Dim fls As List(of String) 
ftp1.Host="47.11.24.95"
ftp1.Account = "lixia"
ftp1.Password = "152@139.com"
ftp1.Changedir("\\") 
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

--  作者:有点甜
--  发布时间:2019/6/10 15:52:00
--  
ftp1.port = "2123"
--  作者:李孝春
--  发布时间:2019/6/10 16:07:00
--  回复:(有点甜)ftp1.port = "2123"
补上端口号之后 
系统提示连接成功 但是却不打开ftp管理?
不知道代码哪里写漏了

--  作者:有点甜
--  发布时间:2019/6/10 16:14:00
--  

Dim ftp1 As New FtpClient
Dim fls As List(of String)
ftp1.Host="47.11.24.95"
ftp1.Account = "lixia"
ftp1.Password = "152@139.com"
ftp1.port = "2123"
ftp1.Changedir("/")
If ftp1.Connect Then \'连接FTP
    ftp1.OpenManager() \'如果连接成功,打开FTP客户端
Else
    Messagebox.show("连接FTP失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If


--  作者:李孝春
--  发布时间:2019/6/10 16:36:00
--  回复:(有点甜)Dim ftp1 As New FtpClientDim fls A...
OK   谢谢有点甜老师