VBS教程:屬性-TotalSize 屬性

NO IMAGE

TotalSize 屬性

返回驅動器或網路共享的總位元組數。

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=sEnd Function