如果只是单纯的拷贝,就这样写 BeforeAttachFile 事件
Select Case e.DataCol.Name Case "附件" Dim ftp As new ftpclient ftp.host="192.168.1.1" ftp.Account = "hxh" ftp.password = "12" ftp.Port = "98" ftp.upload(e.FileName,"/xxx/" & FileSys.GetName(e.FileName) ,True) '上传