PictureViewer一次选择多个图片增加存放,如何用批量命名
帮助里只看到一个是可以的.没有找到对应的方法.
如果按帮助里的方法,例如选择三张图片,后面进来的两张会依次覆盖掉第一张,只存放了一张自定义命名的图片
[此贴子已经被作者于2025/1/23 10:47:16编辑过]
本想有一个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编辑过]