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

将文件大小变成相应的字符串-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



大幕将启!MDCC2013移动开发者大会下周召开 TUP第30期:微软资深专家论如何用Visual Studio开发iOS、Android应用 [开源推荐]Riot.js:不足1KB的MVP客户端框架 研发周报:最难忘的Bug调试经历 NSA如何侵入Google和雅虎的私有数据网络? 飞天5K:开放比开源更有意义 MDCC之移动娱乐游戏峰会:手游金玩奖即将揭晓 开源巨人火狐浏览器:9周岁生日快乐! 感受OpenStack Summit香港大会 渣打科营中心:创建以技术为核心的企业文化 抱怨IT公司人才缺乏?留住现有人才方是正途 专访Esri中国区技术总监:打造新一代WebGIS平台 TIOBE 2013年11月编程语言排行榜:C#、Transact-SQL及VB.NET厚积薄发 透过KitKat,Android或与ChromeOS融合? 利用Spring Data Neo4j搭建推荐系统 七丽借百度SiteApp移动化 分发及变现能力获大幅提升 Go语言4岁了 生日快乐 谷歌发布Web延迟基准测试工具 专访JS-Git创始人Tim Caswell:让Git运行于任一平台 一段代码引发的思考 2013年美国开发者薪资调查报告 MDCC之移动娱乐游戏峰会:金玩奖揭晓最火游戏 算法为王:且看Mac Mini如何超越1636节点的Hadoop 鲍尔默成大善人?微软正式废除员工排名评审制度 工信部软件司副司长陈英为MDCC 2013大会致开场辞 全民移动•重塑世界 2013移动开发者大会盛大开幕 泯灭Web App可用性的七个开发错误 保益互动创始人曹军:听到的世界更精彩,盲人应用背后的故事 Gumi公司CEO国光宏尚: 大公开!日本手游市场攻克方法! Great Hill Partners高管Chuck Goldman &amp;amp; 南京创毅CEO William Wei:超越黑莓——下一代企业移动 高通业务拓展副总裁沈劲:智能手机2.0——以体验为中心 请问在VB中如何引用SAX呀,是引用中的那个呢? 关于多线程传递参数 上海请进——求助…… Jet中的TOP语句怎么个用法??写个例子吧? 讨论:做过OA的大虾们说说都是怎么处理公文正文的? 如何在TreeView中实现鼠标右键菜单? 上海的请进——求助…… 求助:向键盘缓冲区发送字符。 看来是不行的啦! 恭喜!!!恭喜 雍亲王 重回水园!!!!亲王请进 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 这是不是WINXP问题? 一个奇怪的问题:Red Hat 7.2下用mv复制-粘贴文件变成了剪切-粘贴文件,用mv -b也不行。而两周前同样的机器却没有出现这种问题。alias中m 如何用java程序来拨号 引用和指针 我想编个东西不知怎么入手,前辈指点!!!!!:) 报考程序员要具备哪些条件? 如何在服务器上创建目录???? 高手们请进来帮个忙吧!分数不够可以再加. 在DW中如何编辑文章的行距?用CSS吗? 对日期的处理问题 cout的问题(20分). 关于vector<string>的问题(40分). 有没有上海双杨的PB高手? 在pb中怎样写自动递加的序列号?? 我的visio 2000一旦启动以后,就会说遇到问题需要关闭 请问一个关于连接SQL SERVER2000的问题 两行数据重名,查询的时候只能显示其中一个,怎么处理? 在vbscript中的"%TEMPLATEDIR%\wvline.gif"的"%..%"是什么意思? 一个非常棘手的问题,求求各位了!是关于字符转换的!求求各位大侠! 找人 寻C语言编程高手!现有一IP地址和网页、搜索栏关键词拦截程序需要编写,付酬!!! 关于Dll里导出VCL控件的问题。。。高手请进。。。。。。 紧急求救!!! 如何制作浮动面板? 给分的问题! 如何获得 mod_webapp.so 紧急求救 想知道各位WINDOWS下用什么SNIFFER? 对于网络上的第三方控件的看法 简单问题?JTable中的数据如何居中对齐,有没有直接的函数(不用自定义CellRenderer) 有关析构函数 请问一个小问题 关于ADO中ltBatchOptimisticr的FilterGroup的问题 两个星要到多少分才能升到三个星呀 请问有谁知道北京的成人教育大致的情况如何? 是VC编译器不符合ANSI C++,还是?? 我现在在写个程序!是关于证券方面的!可是如下的一个小问题如何解决?? ★★如何让excel的某行的值等于另一行的值乘以一个固定值(急问,在线等待)★★ @@@开学了,散分! 怎样构建一个LDAP服务器和怎样使用 用VFW采集时进行压缩的问题。求解 储存水果为什么要在低温干燥的环境下萌发的种子要在什么环境下储存为什么好的追加分 471cm换算成m 在等腰三角形abc中,底边BC=6,以BC的中点O为圆心,做切于两腰的圆,P为圆上一动点,过点P的切线和AB,AC的延长线分别交于D,E点.求若DE与BC不平行,求证BDXCE是定值 (直接看第二个图) 神奇的克隆人们利用克隆技术能够培植人体的皮肤进行植皮手术;能够“制造”出人的耳朵、软骨、肝脏和心脏等人体“配件”,一旦病人需要,就能重新“装配”…… 片段中的省略号有什么 金属雨水管 金属雨水管不知道金属雨水管在哪些地方好用? 已知等比数列an的公比为正数,且a3.a5=16a4,a1=2,则log2a1+log2a2+...+log2a10=? 第8课神奇的克隆分几段,段意 雨水管有哪些种类? 在等比数列an中,a3*a10=0.5 ,求log2a1+log2a2+~+log2a12的值 7.《神奇的克隆》克隆技术神奇在:一__________________________;二________________________________;三________________________________________________________…… 电路中灯L,标牌"3v 3w",电路接入下列哪灯泡时,使之最亮?L1"2v 2w" L2"4v 4w" L3"6v 12w"L4"6v 18w"?要原因 已知甲乙两人从相距18千米的两地同时出发相向而行,小时相遇,若甲比乙先走小时,那么在乙出发小时后两人相遇,求甲乙两人每小时各走多少千米?已知甲乙两人从相距18千米的两地同时出发相 26. 有一块平行四边形菜地(如图),DE=EF=FC,GB=1/3BD,三角形GEF种的是小白菜,面积是8 平方米,求这块平行四边形菜地的面积是多少平方米. 雨水管和污水管怎么分啊?是市政道路里的雨水管和污水管埋在路下面的那种 请问N和N.M之间怎么换算?这两个单位是什么意思我明白,就是想知道他们之间是怎么换算的。 爱在细微处 作文 把"6V 3W"与"6V 1W"的电灯串联接入某一电路中把"6v 3w"与"6v 1w"的电灯串联接入某一电路中,如果让其中一个灯泡正常发光,电路两端的电压应是多少.(灯丝电阻不随温度改变) 给点提示:我看不懂,解 甲乙两人从相距18千米的两地出发相向而行,2小时后相遇,如果甲比乙先出发40分钟,那么在乙出发后1小时30分钟两人相遇.问甲乙两人每小时各走多少千米?用两元一次方程组 一块平行四边形菜地,底边长24米,是高的3倍.这块地的面积是多少?加上单位!啊一楼 雨水管流量大概范围一根160MM的垂直PVC雨水管,每小时最大的排水量是多少?楼层有10层高,50米高,最好有详细的计算过程.急用,请会者指教.某天下了30MM的雨,这根雨水管能在一小时内把屋顶的雨 553磅·英尺等于多少N.是怎么换算的? 爱在细微处作文母爱或父爱的! 白兔和月亮中 苏轼会用哪些诗句安慰白兔速度啊,急需要! 人教版九年级语文上外国诗两首的背景 一块平行四边形的菜地,一条边长9米,比另一条边短3米,围着快菜地要多长的栅栏 白兔和月亮这个寓言写白兔患得患失心态,苏轼有句词和它不同,是哪句? 九年级语文上册外国诗两首中的“大地的诗歌”具体指什么? 爱在细微处的作文结尾.写的是我对爷爷的爱,不要全篇作文的发过来!我只要结尾! 等比数列an中,an>0,a3a4=4,则log2a1+log2a2+···+log2a6值为 三 从下面两题中选做一题.1.以“大地的诗歌从来不会死亡”或“大地的诗歌呀,从来没有停息”为题,写一段抒情性的文字.2.去感受夜色,写一篇抒情短文或几行小诗. 《奇妙的克隆》题目,1.你认为克隆人是福音还是噩耗2.克隆鲫鱼出世前后运用了哪些说明方法,请举例说明 初三上外国诗两首之作业本答案 若{an}(an>0)成等比数列,a1a100=64,求log2a1+log2a2+…+log2a100 外国诗两首课后二题 夜 用自己的话描绘一下诗中所描写的夜景 在比例尺是1:400000的地图上,测得甲,乙两地之间的距离是4.5cm,若把它画在比例尺是1:600000的地图上,甲乙两地之间的距离是多少cm? 等比数列{an}中,an>0,a3*a4=4,则log2a1+log2a2+.log2a6=? 北纬32度经过长江中下游平原还是华北平原还有,牦牛是不是在东北平原的? 关于作文——爱在细微处看了几篇文章发现大家都在写发生在自己身上的,别人对自己的爱.可不可以写由自己观察而体会到,但并不发生在自己身上的爱呢?我觉得单看这个作文题似乎并没有界 54km/h=? 有一块平行四边形菜地(如图),如果要在它的四周都围上了篱笆,篱笆的总长是多少?(单位:M) 爷爷家有一块平行四边形菜地(如下图),要在它的四周围上篱笆,篱笆总长度是多少米? 换算:54km/h=?m/s, 有个女的对我说1314521是什么意思啊. 有一块平行四边形菜地,它要在四周上篱笆,篱笆的长度是多少?底是60M,50m 换算单位54km/h=54x?m/s 数控加工中心加工铝材遇到的问题希望能够解决?1.有毛刺2.工件表面刀纹粗3.经常断刀4.让刀5台阶.6飞面厚度不稳定……主轴转速对切削工件的影响是什么?还有进给量的影响? 一块平行四边形的菜地,高是18米,底是30米,在周围围篱笆,求篱笆的长度. 人生哲理 贮存蔬菜,水果为什么要保持低温?除此之外,还有什么好办法 果品蔬菜的高品质量包括哪些方面的内容 54km/h=______m/s 女生对我说我还不够真诚是什么意思 蔬菜和水果长时间贮藏保鲜的条件是低温还是高温,干燥或者湿度适中,低氧还是高氧.· {an}成等比,an>0,a1=2,4(a3)²=a2*a6.设bn=log2a1+log2a2+log2a3+...+log2an(1)求{1/bn}前n项和Tn(2)若7+kan≥(n+1),Tn对任意正整数n恒成立,求k的范围ps:上面标题中为 log 以2为底的对数 数控加工中心盘刀飞面一般转速多少啊,比如飞铁或钢材,飞铝材又要多少啊 宽45mm高55mm换算成像素是多少 已知等比数列an的首项a1=1,公比q=2,则log2a1+log2a2+...+log2a11=(?) 城市里的人们怎么储存蔬菜或水果?没有冰箱 24120KB是多少兆流量?转换成M那是多少M? 英语翻译13年硕士研究生考试.我感觉除政治外,两门科目都相近
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘