如何查询磁盘剩余容量
刘玉蓉
发布于2014-08-25 17:45
49
0
标签：
excel表格每产生一次就要30K，想做一个状态提示栏，让其显示磁盘的剩余容量，当磁盘快用完时产生一个“报警”，并提示运行人员将excel表格移动到其他地方。请问该如何编写脚本？
佳答案
简单的vbs来实现的话可以这样做
dim DriveC
dim FreeSpace
dim FSO
Set FSO = CreateObject("Scripting.FileSystemObject")
Set DriveC = FSO.GetDrive("C") ""写进要查看的磁盘名字
FreeSpace = FormatNumber(DriveC.FreeSpace / 1024 / 1024, 3)
""处理结果，返回的DriveC的FreeSpace属性是字节，除一个 1024 就是k，再除就是M
msgbox FreeSpace ""这里显示的就是c盘剩余空间为多少M
根据你的需要，需要显示得规范的话，就处理一下，把结果按G，M，k显示即可。
