主题：文件命名

请问老师，想以登录用户名+照片文件名存入ProjectPath & "Attachments\" 代码 怎么改呢？

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