老师我想实现 FTP 上传文件后改名，文件名后缀不变。 在afterupload 设置代码如下：但是改不了文件名，
例如：ABC.DOC 改为：20210517121110_ABC.DOC 前面的数值为系统日期 年月日时分秒
Dim dr As Row = Tables("XZ_印章管理").Current
Dim ftp1 As new ftpclient
ftp1.Host="192.168.100.152"
ftp1.Account = "snake"
ftp1.Password = "Yhrt2021"
'msgbox(e.CurFolder & "\" & filesys.getname(e.LocalFile))
ftp1.MakeDir("\公章管理\ & User.Name ")
'ftp1.Rename(e.CurFolder & "/" & filesys.getname(e.LocalFile),"\公章管理" & "\" & dr("申请人") & "\" & dr("用章编号") & "")
dr("上传附件") = "\公章管理" & "\" & dr("申请人") & "\" & dr("用章编号") '文件列单元格赋值
'ftp1.Rename(e.CurFolder & "\" & filesys.getname(e.LocalFile),"\公章管理" & "\" & dr("申请人") & "\" & dr("用章编号") & "_" & filesys.getname(e.LocalFile))
ftp1.Rename("\公章管理\ & User.Name" & filesys.GetName(e.LocalFile), "\公章管理\ & User.Name" & "\" & Date.Today & filesys.GetName(e.localFile)) '重命名文件成功!
[此贴子已经被作者于2021/5/17 22:10:11编辑过]
加好友 
发短信
Post By：2021/5/17 21:56:00 [只看该作者]
