Foxtable(狐表)用户栏目专家坐堂 → [求助]FTPClient 上传有问题请教


  共有3194人关注过本帖树形打印复制链接

主题:[求助]FTPClient 上传有问题请教

帅哥哟,离线,有人找我吗?
浙江仔
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1325 积分:9586 威望:0 精华:1 注册:2010/7/21 14:20:00
[求助]FTPClient 上传有问题请教  发帖心情 Post By:2020/5/9 14:59:00 [只看该作者]

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
图片点击可在新窗口打开查看



 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:109501 积分:557173 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/5/9 15:13:00 [只看该作者]

提示是没有权限,或者文件不存在,确定【ApplicationPath & "zp.bmp"】存在或者有权限访问。确定服务器"/pxbm/Attachments/"这个路径存在,并且有权限访问

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

 回到顶部
帅哥哟,离线,有人找我吗?
浙江仔
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1325 积分:9586 威望:0 精华:1 注册:2010/7/21 14:20:00
  发帖心情 Post By:2020/5/9 15:51:00 [只看该作者]

还真是权限问题,晕了,竟然没勾写入

 回到顶部