| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]PictureViewer一次选择多个图片增加存放,如何用批量命名 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=194863) |
| -- 作者：绿火柴 -- 发布时间：2025/1/23 10:46:00 -- [求助]PictureViewer一次选择多个图片增加存放,如何用批量命名 PictureViewer一次选择多个图片增加存放,如何用批量命名 帮助里只看到一个是可以的.没有找到对应的方法. 如果按帮助里的方法,例如选择三张图片,后面进来的两张会依次覆盖掉第一张,只存放了一张自定义命名的图片
[此贴子已经被作者于2025/1/23 10:47:16编辑过]
|
| -- 作者：有点蓝 -- 发布时间：2025/1/23 11:37:00 -- 参考：http://www.foxtable.com/webhelp/topics/2210.htm |
| -- 作者：绿火柴 -- 发布时间：2025/1/23 14:17:00 -- 这个看了,单个文件是可以的. 但多个文件一起选中增加不行
|
| -- 作者：绿火柴 -- 发布时间：2025/1/23 14:52:00 -- 本想有一个FOR语句命名,没有找到合适的方法. 经过实验,用了以下方法 不足:旧文件名前面部分,还是会有重复的的概率 BeforeAttachFile 事件 Select Case e.DataCol.Name Case "picture" \'如果在图片列插入文件 Dim newfile As String e.Subfolder = e.DataRow("新图片目录")
\'\' e.FileName.SubString(e.FileName.LastIndexof(".")) newfile = e.FileName e.FileName = format(Date.Now, "yyyyMMdd-HHmmss") & "##" & newfile End Select
[此贴子已经被作者于2025/1/23 15:21:41编辑过]
|