Case "accept.htm"
Dim sb As New StringBuilder
For Each key As String In e.Files.Keys
sb.AppendLine(key & " 上传" & e.Files(key).Count & "个文件,分别是:</br>")
For Each fl As String In e.Files(key)
Dim Values() As String = fl.split(".")
Dim cs As String = Values(1)
Dim cs2 As String = "aaa"
Dim cs5 As String = (cs2 & "." & cs)
sb.AppendLine(fl & "<br>")
e.SaveFile(key, fl, "E:\MyFolder\张三工号\" & cs5) '保存接收到的文件
Next
sb.AppendLine("</br>")
Next
sb.AppendLine("以上文件服务器已正确接收并保存!")
e.WriteString(sb.ToString)
End Select
加好友 
发短信
Post By：2023/2/27 17:37:00 [显示全部帖子]
