TotalSize 属性

[code]Function ShowSpaceInfo(drvpath)    Dim fso, d, s    Set fso = CreateObject("Scripting.FileSystemObject")    Set d = fso.GetDrive(fso.GetDriveName(fs.GetAbsolutePathName(drvpath)))    s = "[/code]驱动器[code] " & d.DriveLetter & ":"[/code][code]    s = s & vbCrLf[/code][code]    s = s & "[/code]总容量：[code]" & FormatNumber([b]d.TotalSize[/b]/1024, 0) & "KB"[/code][code]    s = s & vbCrLf[/code][code]    s = s & "[/code]可用空间：[code]" & FormatNumber(d.AvailableSpace/1024, 0) & "KB"[/code][code]ShowSpaceInfo=s[/code][code]End Function[/code]