Foxtable(狐表)用户栏目专家坐堂 → 接收上传的文件的内容的困惑


  共有2799人关注过本帖树形打印复制链接

主题:接收上传的文件的内容的困惑

帅哥,在线噢!
有点蓝
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111419 积分:567171 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/8/7 17:04:00 [显示全部帖子]


 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111419 积分:567171 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/8/7 17:17:00 [显示全部帖子]

1、会覆盖掉
2、重命名参考:

For Each key As String In e.Files.Keys
    If key = "up1" Then
        Dim lst As List(of String) = dr.Lines("照片")
        For Each fln As String In e.Files(key)
            Dim n As tring = Format(Date.Now,"yyyyMMddHHmmssffff") & fln
            e.SaveFile(key, fln, ProjectPath & "Attachments\" & n))
            lst.Add(n)
        Next
        dr.Lines("照片") = lst
    End If
Next

 回到顶部