以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  f.length和文件大小不一致  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=81740)
--  作者：dtcaoqian
--  发布时间：2016/3/4 16:22:00
--  f.length和文件大小不一致
我FTP上传的文件大小，用f.length计算出来为48，但文件大小为占用空间348 KB (356,352 字节)，大小345 KB (353,280 字节)，请问如何获取正确的大小。
--  作者：大红袍
--  发布时间：2016/3/4 16:37:00
--  

贴出完整代码，获取文件信息，这样弄

 

http://www.foxtable.com/help/topics/2707.htm

 
--  作者：dtcaoqian
--  发布时间：2016/3/4 18:07:00
--  
我弄错了.应该是示例

Dim ftp1 As New FtpClient
ftp1.Host="196.128.143.28"
ftp1.Account = "foxuser"
ftp1.Password = "138238110"
Dim sz As Integer
sz = ftp1.GetFileSize("\\photo\\jz.png")
Output.Show("文件大小:" & sz)


用getfilesize
--  作者：dtcaoqian
--  发布时间：2016/3/4 18:10:00
--  
因为FTP上传有时会传上0字节的文件，导致不能下载的错误。所以我加了这样的：

         If ftp.Upload(dlg.FileName, fname,True) = True Then  \'若成功上传
             Dim dx As Integer
             dx=ftp.GetFileSize(fname)
           If dx>0 Then
msgbox("上传文件成功")
               else
msgbox("上传文件为0")
           endif
          else
msgbox("上传文件失败")
         endif
谢谢专家提醒。
--  作者：Hyphen
--  发布时间：2016/3/5 9:21:00
--  
测试没有问题，GetFileSize可以返回上传文件正确的大小