以文本方式查看主题

-  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=160281)

--  作者:lihe60
--  发布时间:2021/1/27 14:31:00
--  FTP不能上传文件
FTP前阵子还可以上传文件,昨天不能上传文件。如何检验FTP是不是可以上传文件?

    If ftp.Upload(dlg.filename,filename) = True Then
    Else
        MessageBox.Show(1)
    End If

现在提示框显示1。

--  作者:lihe60
--  发布时间:2021/1/27 14:33:00
--  
比如ftp的密码不对,如何判断?
[此贴子已经被作者于2021/1/27 14:34:01编辑过]

--  作者:有点蓝
--  发布时间:2021/1/27 14:48: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


--  作者:lihe60
--  发布时间:2021/1/27 15:13:00
--  
是可以连接的,但1楼代码不能上传文件,如何解决。
--  作者:有点蓝
--  发布时间:2021/1/27 15:17:00
--  
不能上传提示什么错误?
--  作者:lihe60
--  发布时间:2021/1/27 16:41:00
--  
没有任何提示。
结果是文件上传不成功。

--  作者:有点蓝
--  发布时间:2021/1/27 16:51:00
--  
贴出完整代码
--  作者:lihe60
--  发布时间:2021/1/27 17:01:00
--  
Public ftp As New FtpClient

ftp.Host=""
ftp.Account = "foxtable"
ftp.Password = ""
ftp.RootDir = "foxtable"

ftp.upload("C:\\Users\\Administrator\\Desktop\\GOLD.jpg","存货名称图片\\纺织面料\\LEAF TRAIL\\纺织面料_LEAF TRAIL_BNTC422_IVORY/GOLD.jpg")
[此贴子已经被作者于2021/1/27 17:05:06编辑过]

--  作者:lihe60
--  发布时间:2021/1/27 17:09:00
--  
执行这段代码。
图片点击可在新窗口打开查看此主题相关图片如下:无标题.png
图片点击可在新窗口打开查看
[此贴子已经被作者于2021/1/27 17:09:19编辑过]

--  作者:有点蓝
--  发布时间:2021/1/27 17:18:00
--  

UTF8
逻辑型,是否使用UTF8编码。