主题：[求助]ftp上传文件到服务器

老师，拍摄照片后，通过一个保存按钮上传本地服务器，总是上传失败。照片控件绑定到表A的照片列，照片控件设置为远程文件地址如下，照片所在窗口有一保存按钮，chick事件如下。“中心文件管理”是ftp网站的物理路径， “文件收发”是它下面的一个子目录请指点。谢谢！

哪位大师指点指点吧。谢谢了！

上传失败提示什么错误？

ftp没问题的，就是上传失败

Ftp通过其它方式是否能正常访问，比如浏览器

手动上传下载都没问题

用共享文件夹，读取身份证后照片是自动上传的。ftp设置好是不是自动上传的？

老师，就是在论坛里“图片管理器加上拍照扫描功能”实例的保存照片按钮中加代码

Dim zp  As  Image  = e.Form.Controls("照片").Image
Dim wjm As WinForm.Label = e.Form.Controls("文件名")
If zp IsNot Nothing Then
    If Forms("图片管理器").Opened Then
        Dim path As String = ProjectPath & "Attachments\" & wjm.text & ".jpg"
        zp.Save(path)
        Forms("图片管理器").Controls("PictureViewer1").AddFile(FileSys.GetName(path))
        e.Form.Close
    End If
Else
    MessageBox.Show("请拍摄照片后再保存!","错误",MessageBoxButtons.OK,MessageBoxIcon.Error)
End If

 

在保存时上传的ftp服务器

 

 

 

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

谁来告诉我为什么上传失败啊，在命令窗口测试直接的文件上传也不行啊 是不是下面的代码有问题啊

 

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