主题：[求助] 哪位师傅帮个忙。FTP问题

‘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