返回驅動器或網絡共享的總字節數。
object.TotalSize
object 應為 Drive 對象的名稱。
以下代碼舉例說明如何使用 TotalSize 屬性:
Function ShowSpaceInfo(drvpath) Dim fso, d, s Set fso = CreateObject("Scripting.FileSystemObject") Set d = fso.GetDrive(fso.GetDriveName(fs.GetAbsolutePathName(drvpath))) s = "
驅動器" & d.DriveLetter & ":"
s = s & vbCrLf
s = s & "
總容量:" & FormatNumber(d.TotalSize/1024, 0) & "KB"
s = s & vbCrLf
s = s & "
可用空間:" & FormatNumber(d.AvailableSpace/1024, 0) & "KB"
ShowSpaceInfo=s
End Function
|
新聞熱點
疑難解答