当前位置：首页 > 资讯 > 技术文档

VBS教程：属性-FreeSpace 属性

时间：2022-05-09 20:20 编辑：来源：阅读：
扫一扫，手机访问

摘要：VBS教程：属性-FreeSpace 属性

FreeSpace 属性

返回指定的驱动器或网络共享对于用户的可用空间大小。只读。 [code][i]object[/i].FreeSpace [/code] [b]object[/b] 应为 [b]Drive[/b] 对象的名称。 [h3]说明[/h3][b]FreeSpace[/b] 属性与 [b]AvailableSpace[/b] 属性返回的值基本相同。对于支持限额的计算机系统来说，这两个属性返回的值有所差异。以下代码举例说明如何使用 [b]FreeSpace[/b] 属性：

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

全部评论(0)

上一篇：用vbs实现的简单的服务器文件备份办法压缩文件名自动按日期命名
下一篇：可以修改脚本自身运行次数的vbs(Self modifying script)

资讯排行榜
更多>>