Dim dr As Row = Tables("XZ_印章管理").Current
Dim ftp1 As new ftpclient
ftp1.Host="192.168.100.152"
ftp1.Account = "snake"
ftp1.Password = "Yhrt2021"
ftp1.MakeDir(e.CurFolder & User.Name)
ftp1.Rename(e.CurFolder & filesys.GetName(e.LocalFile), e.CurFolder & User.Name & "\" & format(Date.Today,"yyyyMmddHHmmss") & filesys.GetName(e.localFile)) '重命名文件成功!