ftp下载时出现“进入PASV模式失败, 451 Another Command is Courrently Pending ,Please try again later"
代码如下:端口映射测试等都正常。
Dim ftp1 As New FtpClient
ftp1.Host= ftp_Host
ftp1.Account = ftp_User
ftp1.Password = ftp_Pwd
ftp1.Port = ftp_Port 'ftp端口号
ftp1.RootDir = "\Update"
If ftp1.Connected = False Then '如果FTP没有连接
If ftp1.Connect Then '连接FTP
ftp1.OpenManager() '如果连接成功,打开FTP客户端
Else
Messagebox.show("连接FTP失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
End If