说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

将文件大小变成相应的字符串-VB资料

HTML文档下载 WORD文档下载 PDF文档下载
将文件大小变成相应的字符串-VB资料

Shlwapi.dll是一个跟随IE一起发行的文件。利用该文件中的一个API函数,你就可以将以字节显示的文件的大小转变成相应的字符串。例如:"1.41 KB" 或 "1.32 MB." 在NT4, Windows 95+IE, 以及 Windows 98 这几个操作系统中都能找到Shlwapi.dll文件。

下面是完整的源程序:

Option Explicit

Private Declare Function StrFormatByteSize Lib "shlwapi" Alias "StrFormatByteSizeA" (ByVal dw As Long, ByVal pszBuf As String, ByRef cchBuf As Long) As String
Private Declare Function GetFileSize Lib "kernel32" (ByVal hFile As Long, lpFileSizeHigh As Long) As Long
Private Declare Function OpenFile Lib "kernel32" (ByVal lpFileName As String, lpReOpenBuff As OFSTRUCT, ByVal wStyle As Long) As Long
Private Const OFS_MAXPATHNAME = 128
Private Type OFSTRUCT
cBytes As Byte
fFixedDisk As Byte
nErrCode As Integer
Reserved1 As Integer
Reserved2 As Integer
szPathName(OFS_MAXPATHNAME) As Byte
End Type
Private Const OF_READ = &H0

Private Sub Form_Load()
Dim FileHandle As Long
Dim strFileName As String
Dim leRpOpenBuff As OFSTRUCT
strFileName = "c:\autoexec.bat"
FileHandle = OpenFile(strFileName, leRpOpenBuff, OF_READ)
Dim lngFileSize As Long
Dim temp As Long
temp = GetFileSize(FileHandle, lngFileSize)

MsgBox FormatKB(temp), vbInformation, "File Size in String"

End Sub

Public Function FormatKB(ByVal Amount As Long) As String

Dim Buffer As String
Dim Result As String

Buffer = Space$(255)

Result = StrFormatByteSize(Amount, Buffer, Len(Buffer))

If InStr(Result, vbNullChar) > 1 Then
FormatKB = Left$(Result, InStr(Result, vbNullChar) - 1)

End If

End Function



当“硅”已走到尽头,我们又该用什么去维系摩尔定律? 高端大气上档次 8位iOS顶级女程序媛 谁都可以做开发者:微软推出Windows Phone Web工具 Mozilla正式发布Firefox 23 新增混合内容拦截 网络监控功能 14条建议,使你的IT职业生涯更上一层楼 依托微信的电商产品实践——SDCC 2013讲师潘凡专访 IBM将向Google、英伟达等授权Power架构技术 人脑研究将推动下一代网络革命?从大爆炸到大收缩 H3C携手F5将“空转”数据中心变为“分布式数据中心” W3C小组发布Web存储API推荐标准 开发者必备的6款源码搜索引擎 闪亮登场:开发者制作图形图表所需的11款JS工具包 来自两位技术大牛的博弈:HBase或将制霸NoSQL? 应用改变世界 2013英特尔®创新应用大赛火热开启 看13位CEO、创始人和高管如何提高工作效率 对首次购买智能手机用户而言,苹果吸引力并不大 Amazon Appstore面向Web应用开放 开发者可添加应用内付费功能 CSC收购成功转型的大数据初创公司InfoChimps 嘀嘀打车发展报告:成全球最大出租车调度平台 又摊上事儿了,Android的MasterKey再次出现bug 比特币挖矿必备工具 硬件性能大比拼 RDBMS vs. NoSQL:反派为什么会得以存活并发展壮大 帮助优化移动网站:谷歌发布新指南和PageSpeed Insights工具 增强Web可用性,你需要避免的七大设计错误 Python六大开源框架对比:Web2py略胜一筹 海外看中国:老外开发者间流传着的7件事儿 京东云峰:电商移动云平台背后的技术 初创公司DigitalOcean:55秒搭建一个云服务器 分布式系统事务原子性的非阻塞实现 IBM发布基于人脑特性设计的全新计算架构和编程语言 16款加速编码的HTML5在线工具 帮忙 哪里有数据库系统开发的文档下载 急待解决的问题 请问从socket发信息,连续发送几个小数据包出错的情况!! 紧急问题,在线等待! 救命——存取违例 请问在VB中使用DAO控件怎样打开ACCESS数据库? 请问装vc6的sp5主要有什么作用啊 双网卡的局域网,如何让 CSocket 使用指定的网卡与另一电脑通讯? SQL删除不了相同的记录 JBuilder7中的中文问题 谁知道计算机的本地时间与系统时间有什么区别? 请问如何实现垂直显示文字?` JDOM高手看过来! 请问怎么在vb中调用纯c接口的api并实现多线程 如何实现任意长整数的运算? 程序移植,有多大的工作量??? 哪里有InstallShield Express的中文包D6自带的那个。 HELP ME! 请教:API中的数据类型与pb中的数据类型的对应关系 第一个进来给100分!哈哈,高兴!! 高分求翻译, 高手请进,就一句 TeeChart在那个组件栏中?我怎么找不到?(我是6.0的版本) 在哪里下载KPT7.0? 存储过程问题讨论!高手请进. 高人指点几行代码不难,只是我不懂 紧急问题,在线等待! 急问:在DROPDOWNLIST中如果只有一个下拉选择项怎么无法相应SelectedIndexChanged事件?该怎么做? 关于用DataGrid显示数据的问题 请高手相助 示例解析sqlDataAdapter中tablemappings的使用(在线给分)急!!! 我想让一条记录的其中四个字段成为ComboBox中的四个选项,如何做啊? 请问.netFrameWork里面没有提供Chart的类。 关于驱动编译的一个问题!100分! 十行小程序 想做一个VC6.0那样的WorkSpace,谁有这方面的经验或代码? 我现在做一个考试系统,它的客户端怎样操作服务器端的数据库? 还是web打印的问题,特别是票据打印,要求比较高(还要免费的),据说可以用Applet+数字签名+JNI+XML的形式? mshflexgrid同步更新问题===请高手做答 我想在CDocument中控制CDialogBar,如何控制? Easy,简单的开始问题!!! 谁有Antechinus C# Editor的注册码呀? 随缘 99高程的最后一题c语言题目的编程原理是什么?什么图理论?数据结构?不明白? 请 Swing 高手指教:java 如何实现点击窗口最小化时在最右下角的任务栏有图标显示。 声卡装不上怎么解决????????????????????急急!!!!!!!!!!!!!!! 各位大虾,关于安装了ie6.0 sp1出现的问题。。。。。。 at89c52停产了,替换at89c52 500分求教:怎样发送任意格式的邮件附件?要求用Base64编码,速度要快。 asp本地机怎么设置 有高分拿的调查:说说你们最喜欢的源码下载网站 《旅游法》洗牌旅游业 “不许购物”是十八届三中全会前瞻:国企分类改革与监奢华政府楼盘点:花40亿建世界第二大房地产调控:未撼动房价却推高离婚率房子改变社会生态:大城市还能容下“穷新消法:回避“知假买假” “假一赔三玻利维亚一飞机降落时爆炸起火致8死1中国富豪接班大考:13位“富二代”谈法国支持韩国提出的“朝鲜半岛信任进程孟加拉国反对党再次举行连续三天的全国德国政府拒绝为斯诺登提供避难巴基斯坦西北部发生严重交通事故10人尼日利亚商贸中心大火得到控制 无中国两岸企业家紫金山峰会南京开幕新加坡政府提高警惕应对黑客威胁俄罗斯庆祝“人民团结日”日本一体育交流团体在朝开设代理事务所马来西亚绿色植物在国土面积中占74%缅甸政府首次与多支少数民族武装组织集马来西亚绿色植物在国土面积中占74%印度北部发生火车撞人事故造成4人死亡国家防总启动Ⅲ级应急响应人权组织批美国反恐系“钓鱼执法”:安价值400万法拉利失控 撞两车后车轮虹桥机场推出降温喷雾、“地面空姐“等张国立谈春晚:是一件非常吃力不讨好的传李心洁婚姻再遇危机 “小三“频发短李亚鹏夜会三美女咬耳朵 疑携江疏影看纽约股市三大股指22日上涨伦敦股市股指22日上涨0.99%潘基文呼吁以色列保持克制美元22日对多数主要货币汇率上涨奥朗德设宴澄清大婚传闻:生日无其他意田亮晒巨型森碟幼儿园毕业照 网友调侃盘点全球各大地铁通勤奇观北舞校花裹浴巾拍写真日本模特41岁梨花走红22年 已生两阿娇晒高难度拉筋照 网友感叹台下十年高层头顶“私人花园“七年难拆除 违建Jay Z被曝出轨 与碧昂斯巡演后将传汪峰下月向章子怡求婚 绞尽脑汁送惊为你还原一个真实的娱乐圈!明星私下人
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘