主题：ftp上传

老师，下面的代码编译通不过，请您给看看哪错了。

 

Dim pic As WinForm.PictureBox = e.Form.Controls("PicView2")
Dim img As Image
e.Form.TimerEnabled = False
If pic.Image IsNot Nothing
    Dim buffer() As Byte = Functions.Execute("GetImageToBytes",pic.Image)
    Dim result As Integer = Functions.Execute("SaveBytesToFile",buffer,"web\学校档案\学生照片\" & Tables("学生名单").Current("学生姓名") & Tables("学生名单").Current("身份证件号") & ".jpg")
    Dim ftp1 As New FtpClient
    ftp1.Host="218.222.157.198:21"
    ftp1.Account = "lyxx-wz"
    ftp1.Password = "xxxxxxx"
    Tables("学生名单").Current("照片") = Tables("学生名单").Current("学生姓名") & Tables("学生名单").Current("身份证件号") & ".jpg"
    If result = 1
        MessageBox.Show("照片保存为: "& Tables("学生名单").Current("学生姓名") & Tables("学生名单").Current("身份证件号") & ".jpg","保存成功")
        e.Form.Close()
    Else
        MessageBox.Show("保存失败","失败")
    End If
Else
    MessageBox.Show("请先拍照!","错误")
End If
e.Form.TimerEnabled = True

要上传到ftp，不用行吗。

老师，现在编译可以了，但提示下面的错误。

 

.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2020.5.29.8
错误所在事件：自定义函数,SaveBytesToFile
详细错误信息：
调用的目标发生了异常。
未能找到路径“D:\xxsjk(学校数据库)\web\学校档案\学生照片\马灵薇640381200805313048.jpg”的一部分。

 

 

下面是自定义函数,SaveBytesToFile

'保存Bytes()到文件
'参数0 : Bytes()数组
'参数1 : 文件名

Dim Bytes As Byte() = Args(0)
Dim FileName As String = Args(1)
If Bytes Is Nothing Or FileName = ""
    Return 0
End If
Dim fileStream As System.IO.FileStream = new System.IO.FileStream(FileName, System.IO.FileMode.OpenOrCreate, System.IO.FileAccess.Write)
fileStream.Write(Bytes, 0, Bytes.Length)
fileStream.Flush()
fileStream.Close()
fileStream.Dispose()
Return 1

老师，拍照的照片是不是必须要在本地保存后才能上传呢？