| 以文本方式查看主题 - 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=166086) |
| -- 作者：snaker114 -- 发布时间：2021/5/17 21:56:00 -- FTP上传后改名请教 老师我想实现 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编辑过]
|
| -- 作者：有点蓝 -- 发布时间：2021/5/17 22:23:00 -- 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)) \'重命名文件成功!
|