主题：[求助] 手机上传多张照片

改成下面代码，弹出各个值看看。

    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()