以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  上传打开的word文件到服务器只有1kb,如何写代码能完整上传  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=170521)

--  作者:kgdce
--  发布时间:2021/7/29 12:15:00
--  上传打开的word文件到服务器只有1kb,如何写代码能完整上传
现在对word打开编辑,上传到服务器时,发现只有1KB,将这个打开的文件复制另一个目录,就能完整的上传到服务器。
    FileSys.CopyFile(fln, fn,True) \'复制当前行对应文件到后台题目  
    Dim ip As String = _syip
    Dim hc As New HttpClient("http://" & ip & "/。。。。/。。。.htm")
    hc.FormData.Add("。。。","。。。")
    hc.FormData.Add("。。。。","。。。。")
    hc.Files.Add("up1",fn)
    Dim ret As String = hc.getData()
    If hc.rCookies.ContainsKey("error") Then
        messagebox.show("保存失败!")
        Return Nothing
    Else
        messagebox.show("保存成功")
    End If
   这个上传文件是成功的,超过1KB。如果将hc.Files.Add("up1",fn)改为hc.Files.Add("up1",fln)就会只上传1KB的临时打开的word文件。
  要解决的问题就是,对打开的word文件,不复制的情况下,如何上传完整的文件?
[此贴子已经被作者于2021/7/29 12:15:37编辑过]

--  作者:有点蓝
--  发布时间:2021/7/29 13:35:00
--  
没有办法。保存然后关闭文件在上传