编程论坛 → VB6论坛

遇一问题,请神人们解决

snrtjat 发布于 2013-03-22 23:20， 514 次点击

检查c盘的可用空间,当可用空间小于5G时显示图片1(C:1.jpg)到当前窗口.

6 回复

wp2319572013-03-22 23:24

实时还是触发

snrtjat2013-03-22 23:26

实时的,VBS格式

snrtjat2013-03-22 23:32

欢迎神界的版主们积极给出解答.
Thank you for your support.

wp2319572013-03-22 23:35

实时的话就得使用定时器了

不过vbs 不是很懂

snrtjat2013-03-23 12:16

实时的话就得使用定时器了

帮忙搞出来，谢谢！

snrtjat2013-03-23 23:14

自己搞定了.
dim DriveC
dim FreeSpace
dim FSO
dim wsh
Set FSO = CreateObject("Scripting.FileSystemObject")
Set DriveC = FSO.GetDrive("C")
FreeSpace = FormatNumber(DriveC.FreeSpace/1024/1024/1024, 3)
Set wsh=WScript.CreateObject("WScript.Shell")
if FreeSpace<5 then wsh.run "c:\1.jpg"
已测试运行OK,有更好的建议者,请即时加以修正,Thanks!