excel表格每產(chǎn)生一次就要30K，想做一個狀態(tài)提示欄，讓其顯示磁盤的剩余容量，當(dāng)磁盤快用完時產(chǎn)生一個“報警”，并提示運行人員將excel表格移動到其他地方。請問該如何編寫腳本？

佳答案

簡單的vbs來實現(xiàn)的話可以這樣做

dim DriveC
dim FreeSpace
dim FSO
Set FSO = CreateObject("Scripting.FileSystemObject")

Set DriveC = FSO.GetDrive("C")  ""寫進要查看的磁盤名字
 FreeSpace = FormatNumber(DriveC.FreeSpace / 1024 / 1024, 3)
                      ""處理結(jié)果，返回的DriveC的FreeSpace屬性是字節(jié)，除一個   1024    就是k，再除就是M
msgbox  FreeSpace  ""這里顯示的就是c盤剩余空間為多少M

根據(jù)你的需要，需要顯示得規(guī)范的話，就處理一下，把結(jié)果按G，M，k顯示即可。