以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  FTP目录问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=152790)
--  作者：13968559581
--  发布时间：2020/7/22 14:00:00
--  FTP目录问题
我现在想实现一个效果，读取和写入文件放入FTP服务器

　　问题我现在已经有一个FTP服务器了，用正常的方式用户名和密码也能登录
　但用你们的代码我读取不了目录
请问：我用什么代码可以判断我能登录FTP，还有，　\\update　　这个什么意思，\\前面代表什么
　Dim ftp1 As New FtpClient
ftp1.Host="196.128.143.28"
ftp1.Account = "foxuser"
ftp1.Password = "138238110"
If ftp1.Upload("c:\\data\\Desert.jpg","\\update\\Desert.jpg") = True Then
    Messagebox.show("上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
    Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
--  作者：有点蓝
--  发布时间：2020/7/22 14:02:00
--  

Connect

连接FTP，如果连接成功，返回True，否则返回False。
FTP默认是自动判断并连接的，正如前面的示例代码，并不需要先连接FTP再进行操作。
如果愿意，也可以Connected属性判断FTP是否已经连通，用Connect方法显式连接FTP。

示例

Dim ftp1 As New FtpClient
ftp1.Host="196.128.143.28"
ftp1.Account = "foxuser"
ftp1.Password = "138238110"
ftp1.Changedir("\\photo") 
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


\\update　指ftp根目录里的一个子目录，名称叫update，第一个\\一般指代根目录