- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助] 手机上传多张照片 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=115502)
-- 发布时间：2018/3/8 11:09:00
-- [求助] 手机上传多张照片
老师，我上传多张照片后，如何将照片以拍摄时间命名？如何将多个文件名保存到照片列？谢谢！
-- 发布时间：2018/3/8 11:57:00
--
Dim ls = dr.Lines("照片")
For Each key As String In e.Files.Keys
For Each fln As String In e.Files(key)
Dim idx As Integer = fln.LastIndexOf(".")
Dim NewName As String = format(cdate(e.PostValues("拍摄日期")), "yyyyMMdd") & fln.SubString(idx)
Dim cnt As Integer = 1
Dim temp = newName
Do While FileSys.FileExists("d:\\web\\uploadfiles\\" & NewName) \'判断文件夹是否存在同名文件
NewName = temp.Insert(idx,"(" & cnt & ")") \'如果存在同名文件,在原文件名加上序号
cnt = cnt + 1 \'递增序号
Loop
e.SaveFile(key,fln,"d:\\web\\uploadfiles\\" & NewName) \'保存接收到的文件
ls.add(newName)
Next
Next
dr.Lines("照片") = ls
dr.save()
-- 发布时间：2018/3/8 19:08:00
--
老师，第一次上传得到如下两张照片，序号插入位置不对，没提示错误，第二次上传就出现了错误提示，显示上传失败。谢谢！
此主题相关图片如下：20180803.jpg
此主题相关图片如下：20180(1)803.jpg
-- 发布时间：2018/3/8 21:29:00
--
改成下面代码，弹出各个值看看。
Dim ls = dr.Lines("照片")
For Each key As String In e.Files.Keys
For Each fln As String In e.Files(key)
Dim idx As Integer = fln.LastIndexOf(".")
msgbox(idx)
Dim NewName As String = format(cdate(e.PostValues("拍摄日期")), "yyyyMMdd") & fln.SubString(idx)
msgbox("1" & newname)
Dim cnt As Integer = 1
Dim temp = newName
Do While FileSys.FileExists("d:\\web\\uploadfiles\\" & NewName) \'判断文件夹是否存在同名文件
msgbox("2" & newname)
NewName = temp.Insert(8,"(" & cnt & ")")
cnt = cnt + 1 \'递增序号
Loop
msgbox("3" & newname)
e.SaveFile(key,fln,"d:\\web\\uploadfiles\\" & NewName) \'保存接收到的文件
ls.add(newName)
Next
Next
dr.Lines("照片") = ls
dr.save()
-- 发布时间：2018/3/8 23:34:00
--
老师，上传一张 弹出 13 120180308 320180308