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

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教程:属性-AvailableSpace 属性


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

AvailableSpace 属性

返回指定的驱动器或网络共享对于用户的可用空间大小。

object.AvailableSpace

object 应为 Drive 对象的名称。

说明

AvailableSpace 属性与 FreeSpace 属性返回的值基本相同。对于支持限额的计算机系统来说,这两个属性返回的值有所差异。

下面代码举例说明如何使用 AvailableSpace 属性:

Function ShowAvailableSpace(drvPath) Dim fso, d, s Set fso = CreateObject("Scripting.FileSystemObject") Set d = fso.GetDrive(fso.GetDriveName(drvPath)) s = "Drive " & UCase(drvPath) & " - " s = s & d.VolumeName & "<BR>" s = s & "可用空间:" & FormatNumber(d.AvailableSpace/1024, 0)  s = s & " Kbytes" ShowAvailableSpace = sEnd Function