以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  图片保存到FTP问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=105998)
--  作者：huli503
--  发布时间：2017/8/30 22:34:00
--  图片保存到FTP问题
         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，红色部分的要怎么写
--  作者：有点甜
--  发布时间：2017/8/30 23:09:00
--  
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*"
    e.SaveFile(key,fln,ProjectPath & "RemoteFiles\\" & fln) \'保存接收到的文件
    ftp1.Upload("/" & fln, ProjectPath & "RemoteFiles\\" & fln)
Next
[此贴子已经被作者于2017/8/30 23:09:23编辑过]