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

佳答案

簡(jiǎn)單的vbs來(lái)實(shí)現(xiàn)的話可以這樣做

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

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

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