当前位置: 首页 > 图文教程 > 脚本技术 > VBScript > VBS教程:属性-TotalSize 属性

VBScript
一个实现VBS倒计时的代码
用vbs实现将剪切板的unix格式的内容处理成pc格式的代码
用vb和vbs 破解flashxp的密码的代码
用VBS实现的批量gb2312转utf-8,支持拖动
用vbs实现的XP序列号替换器
VBS可以做什么的简单说明
用vbs实现cmd功能的代码
VBS基础编程教程 (第1篇)
VBS基础编程教程 (第3篇)
VBS基础编程教程 (第4篇)
VBS基础编程教程 (第5篇)
VBS基础编程教程 (第6篇)
利用vbscript的for命令实现定时关机
在桌面右下角出现温馨提示的vbs冒泡程序
利用VBS发送邮件 挑选速度快的肉鸡做VPN 的vbs代码
vbs教程 chm下载
用vbs实现的简单的服务器文件备份办法压缩文件名自动按日期命名
输入mdb数据库即可将打包的mdb文件解包
VBS编程教程第一部
vbs脚本 加密 几个小细节小结下

VBScript 中的 VBS教程:属性-TotalSize 属性


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-09-11   浏览: 65 ::
收藏到网摘: n/a

TotalSize 属性

返回驱动器或网络共享的总字节数。

object.TotalSize

object 应为 Drive 对象的名称。

说明

以下代码举例说明如何使用 TotalSize 属性:

Function ShowSpaceInfo(drvpath) Dim fso, d, s Set fso = CreateObject("Scripting.FileSystemObject") Set d = fso.GetDrive(fso.GetDriveName(fs.GetAbsolutePathName(drvpath))) s = "驱动器 " & d.DriveLetter & ":" s = s & vbCrLf s = s & "总容量:" & FormatNumber(d.TotalSize/1024, 0) & "KB" s = s & vbCrLf s = s & "可用空间:" & FormatNumber(d.AvailableSpace/1024, 0) & "KB"ShowSpaceInfo=sEnd Function