移动开发照片上传咨询 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

回复10楼，bug。生成html代码的时候，url没加引号。

老师，照片保存碰到问题，不知道代码如何修改，请您帮忙。

问题：当上传照片重名时，不能保存修改后的照片名。

例如：

第一次上传照片名：image.jpg。-->结果：表格保存名称：image.jpg(正常)，保存在文档(硬盘)中的图片名称：image.jpg(正常).

第二次上传照片名：image.jpg。-->结果：表格保存名称：image.jpg(不正常)，保存在文档(硬盘)中的图片名称：image(1).jpg(正常).

第三次上传照片名：image.jpg。-->结果：表格保存名称：image.jpg(不正常)，保存在文档(硬盘)中的图片名称：image(2).jpg(正常).

.....

For Each key As String In e.Files.Keys

For Each fl As String In e.Files(key)

Dim NewName As String = fl

Dim idx As Integer = fl.LastIndexOf(".")

If idx > 0 Then '如果有上傳照片

Dim cnt As Integer = 1

Do While FileSys.FileExists("e:/web/images/photo/" & NewName)

NewName = fl.Insert(idx,"(" & cnt & ")")

cnt = cnt + 1 '递增序号

Loop

e.SaveFile(key,fl,"e:/web/images/photo/" & NewName)

dr.Lines("照片") = e.Files(key)

End If

[此贴子已经被作者于2017/9/28 14:54:09编辑过]

For Each key As String In e.Files.Keys
    Dim ls As new List(Of String)
    For Each fl As String In e.Files(key)
        Dim NewName As String = fl
        Dim idx As Integer = fl.LastIndexOf(".")
        If idx > 0 Then    '如果有上傳照片
            Dim cnt As Integer = 1
            Do While FileSys.FileExists("e:/web/images/photo/" & NewName)
                NewName = fl.Insert(idx,"(" & cnt & ")")
                cnt = cnt + 1 '递增序号
            Loop
            e.SaveFile(key,fl,"e:/web/images/photo/" & NewName)
            ls.add(newname)
        End If
    Next
    dr.Lines("照片") = ls
Next

主题：移动开发 照片上传咨询

主题：移动开发照片上传咨询