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 = s
End Function
AvailableSpace 属性
原创文章如转载，请注明：转载自悠悠博客 [ http://www.ajaxstu.com/ ]
相关文章:
- vbscript:File 对象(2006-11-3 5:45:50)
- vbscript:FileSystemObject 对象(2006-10-19 7:35:29)
- vbscript:Folders 集合(2006-9-13 5:28:51)
- AtEndOfStream 属性(2006-8-1 11:43:52)
- vbscript:Folder 对象(2006-7-20 2:7:23)
- AtEndOfLine 属性(2006-7-6 4:12:34)
- vbscript:Files 集合(2006-6-12 9:15:59)
- Attributes 属性(2006-4-23 1:5:52)
- vbscript:Drives 集合(2006-2-19 8:6:28)
- vbscript:Drive 对象(2006-2-4 5:34:10)
◎欢迎参与讨论，请在这里发表您的看法、交流您的观点。
