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=s
End Function
写评论
很抱歉,必須登入網站才能發佈留言。