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编辑过]