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

VBScript
adodb.stream读文件到数组的代码
利用sql语句复制一条或多条记录
百度空间备份脚本baidublogbak.vbs代码分析
vbs版sql查询分析器lcx作品
最新版利用CDO.Message做的vbs下载者
PDF的VBS小程序代码
算阶乘的vbs小程序
vbs后台运行bat删除自身的代码
VB6 ByVal ByRef函数调用
一段提取用户名和md5的vbs代码
vbs fso跨盘移动文件夹的怪问题
vbs删除文本文件的行的函数
显示运行对话框内保存的命令历史的vbs
emule自动关机脚本
IE中用VBScript不提示直接打印的代码
vbs引用另一个vbs的代码
VBScript 剪贴板抓取URL并在浏览器中打开
奇特的js写法,或许可以用来加密躲杀毒软件什么的
自动写入文件上传到指定服务器SoftwareMeteringCLS.vbs源码
一个查看局域网在线IP的vbs脚本

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


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-09-11   浏览: 84 ::
收藏到网摘: 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