以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]FTPClient 上传有问题请教  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=149698)

--  作者:浙江仔
--  发布时间:2020/5/9 14:59:00
--  [求助]FTPClient 上传有问题请教
Dim ftp As new FTPClient
ftp.host=Vars("ftp_ip")
ftp.account=Ftp_name \'Vars("ftp_name")
ftp.password= Ftp_pw

If FileSys.FileExists(ProjectPath & "\\Attachments\\" & Vars("idcard") & ".bmp") Then \'如果目标文件已经存在
    If ftp.Upload(ApplicationPath & "zp.bmp", "/pxbm/Attachments/" & Vars("idcard") & ".bmp") = True Then
        FileSys.DeleteFile(ApplicationPath & "zp.bmp",2,2)
    Else
        If ftp.Upload(ProjectPath & "\\Attachments\\" & Vars("idcard") & ".bmp", "/pxbm/Attachments/" & Vars("idcard") & ".bmp") = False Then
            Messagebox.show("照片上传失败,请重刷身份证!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
        End If
    End If
Else
    Messagebox.show("照片获取失败,请重刷身份证!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If

用代码上传不成功,打开远程文件管理器,ftp文件可以打开下载上传

连接信息如下,是不是跟ftp模式有关系:

图片点击可在新窗口打开查看此主题相关图片如下:微信截图_20200509145840.png
图片点击可在新窗口打开查看



--  作者:有点蓝
--  发布时间:2020/5/9 15:13:00
--  
提示是没有权限,或者文件不存在,确定【ApplicationPath & "zp.bmp"】存在或者有权限访问。确定服务器"/pxbm/Attachments/"这个路径存在,并且有权限访问

另外看看ftp服务端是否设置了pasv模式

--  作者:浙江仔
--  发布时间:2020/5/9 15:51:00
--  
还真是权限问题,晕了,竟然没勾写入