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

VBScript
vbs删除注册表项的代码
用vbs检查注册表项的访问权限的代码
vbs之使用Internet Explorer 屏蔽密码
vbscript 注册表脚本书写
vbs下通过日期查找文件夹的代码
vbs复制文件的脚本
vbs实现计算机重启
文件备份vbs脚本
vbs下用一个小方法实现批量添加域用户
用vbs实现本地添加用户的脚本
vbs AD日志开启脚本nableKerbLog的脚本
vbs实现压缩文件夹的脚本
用VBS修改远程桌面3389端口并添加到Windows防火墙的代码
用vbs实现自动检查代理是否可用,并自动设置IE代理的脚本
vbs实现的定时关机、重启的脚本和程序
vbs实现的定时提醒你休息的脚本
vbs自动填表单分析附源码
vbs实现的汉字转拼音的函数
初窥WMI_Vbs脚本编程简明教程补充读物
用vbs实现判断计算机是笔记本还是台式机的代码

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


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

FreeSpace 属性

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

object.FreeSpace

object 应为 Drive 对象的名称。

说明

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

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

Function ShowFreeSpace(drvPath) Dim fso, d, s Set fso = CreateObject("Scripting.FileSystemObject") Set d = fso.GetDrive(fso.GetDriveName(drvPath)) s = "驱动器 " & UCase(drvPath) & " - "  s = s & d.VolumeName &"<BR>" s = s & "可用空间:" & FormatNumber(d.FreeSpace/1024, 0)  s = s & "KB"ShowFreeSpace = sEnd Function