[求助] 哪位师傅帮个忙。FTP问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助] 哪位师傅帮个忙。FTP问题

共有3337人关注过本帖树形打印复制链接主题：[求助] 哪位师傅帮个忙。FTP问题

lingyun00800

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：177 积分：1757 威望：0 精华：0 注册：2015/1/17 23:24:00

[求助] 哪位师傅帮个忙。FTP问题 发帖心情

Post By：2015/2/16 9:15:00 [只看该作者]

设置完毕后。怎么连接不上。提示列表失败。

黄训良

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1100 积分：8985 威望：0 精华：0 注册：2014/3/15 14:36:00

Post By：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