[已解决]VBS获取磁盘剩余百分比如何精确到小数点后两位？

ydfan8888

1. Set objWMIService = GetObject("winmgmts:")
   
2. Set objLogicalDisk = objWMIService.get("Win32_LogicalDisk.DeviceID='e:'")
   
3. 
   
4. s = objLogicaldisk.Size/(1024*1024*1024)
   
5. s = round(s,2) '全部磁盘容量
   
6. m = objLogicalDisk.FreeSpace/(1024*1024*1024)
   
7. m = round(m,2) '剩余磁盘空间
   
8. a = m/s
   
9. a = round(a,2)
   
10. w = (FormatPercent(a,2)) '磁盘剩余空间百分比

复制代码

batman

1. 
   
2. Set objWMIService = GetObject("winmgmts:")
   
3. Set objLogicalDisk = objWMIService.get("Win32_LogicalDisk.DeviceID='e:'")
   
4. 
   
5. s = objLogicaldisk.Size/(1024*1024*1024)
   
6. s = round(s,2) '全部磁盘容量
   
7. m = objLogicalDisk.FreeSpace/(1024*1024*1024)
   
8. m = round(m,2) '剩余磁盘空间
   
9. a = m/s
   
10. a = round(a,4)
    
11. w = (FormatPercent(a,2)) '磁盘剩余空间百分比
    
12. MsgBox w
    

复制代码

ydfan8888

batman 发表于 2012-3-29 12:39

    谢谢 已经处理