Foxtable(狐表) → 用户栏目 → 专家坐堂 → f.length和文件大小不一致


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

主题：f.length和文件大小不一致
帅哥哟，离线，有人找我吗？
dtcaoqian
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：216 积分：1888 威望：0 精华：0 注册：2015/5/27 1:15:00 		f.length和文件大小不一致  发帖心情 Post By：2016/3/4 16:22:00 [显示全部帖子]

我FTP上传的文件大小，用f.length计算出来为48，但文件大小为占用空间348 KB (356,352 字节)，大小345 KB (353,280 字节)，请问如何获取正确的大小。

 回到顶部
帅哥哟，离线，有人找我吗？
dtcaoqian
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：216 积分：1888 威望：0 精华：0 注册：2015/5/27 1:15:00 		  发帖心情 Post By：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
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：216 积分：1888 威望：0 精华：0 注册：2015/5/27 1:15:00 		  发帖心情 Post By：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
谢谢专家提醒。
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05273 秒, 5 次数据查询