- 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=64500)
-- 发布时间：2015/2/16 9:15:00
-- [求助] 哪位师傅帮个忙。FTP问题
设置完毕后。怎么连接不上。提示列表失败。
-- 发布时间：2015/2/16 10:53:00
--
‘1、在窗口中添加一个按钮，按钮代码如下，先测试FTP连接，再查看根目录是否存在
Dim ftp1 As new ftpclient
ftp1.host= IP地址（服务器）
ftp1.Port= 端口号
ftp1.Account = 用户名（服务器）
ftp1.password = 密码（服务器）
If ftp1.Connect Then \'如果FTP没有连接
msgbox("连接成功！")
Else
msgbox("连接失败！")
end if
‘2、查看根目录是否存在
If ftp1.DirExists(“\\根目录名”) Then
msgbox("根目录存在")
Else
msgbox("根目录不存在")
End if
-- 发布时间：2015/2/16 10:58:00
--
UTF8 先设置为False 测试一下
-- 发布时间：2015/2/23 11:08:00
--
连接不上提示什么？
-- 发布时间：2015/2/23 11:09:00
--
列表失败，说明已经成功连接。你试试关闭ftp服务器的防火墙看看。