以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  移动版照片根据列名称命名  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=133119)
--  作者：yifan3429
--  发布时间：2019/4/7 17:08:00
--  移动版照片根据列名称命名
For Each key As String In e.Files.Keys
                        If key = "up1" Then
                            For Each fln As String In e.Files(key)
                                e.SaveFile(key, fln,ProjectPath & "Attachments\\设计师美图\\" & fln)
                            Next
                            dr.Lines("照片") = e.Files(key)
                        End If
                    Next

需求根据列 
作者  拍摄日期  获奖级别 
三列来命名上传的文件名
--  作者：有点甜
--  发布时间：2019/4/7 18:36:00
--  

这个意思？

 

For Each key As String In e.Files.Keys
    If key = "up1" Then
        Dim fn = "设计师美图\\" & dr("作者") & dr("拍摄日期") & dr("获奖级别") & ".jpg"
        For Each fln As String In e.Files(key)
            e.SaveFile(key, fln,ProjectPath & "Attachments\\" & fn)
        Next
        dr.Lines("照片") = e.Files(key)
    End If
Next