For Each key As String In e.Files.Keys
If key = "up1" Then
For Each fln As String In e.Files(key)
Dim ftp1 As New FtpClient
ftp1.Host="192.168.1.238"
ftp1.Account = "administrator"
ftp1.Password = "huli7809184515*"
ftp1.Upload(key, fln,ProjectPath & "RemoteFiles\" & fln)
Next
dr.Lines("图片") = e.Files(key)
End If
老师,把手机拍的照片保存到FTP,红色部分的要怎么写