遇一问题,请神人们解决 - VB6论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 开发语言 → 『 VB6论坛』 → 遇一问题,请神人们解决

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 514 人关注过本帖

标题：遇一问题,请神人们解决

取消只看楼主加入收藏

snrtjat

来　自：山那边海尽头
等　级：贵宾
威　望：22
帖　子：1115
专家分：7025
注　册：2013-1-21
结帖率：89.19%

楼主

已结贴√ 问题点数：5 回复次数：4

遇一问题,请神人们解决

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

搜索更多相关主题的帖子: 空间　检查　

2013-03-22 23:20

snrtjat

来　自：山那边海尽头
等　级：贵宾
威　望：22
帖　子：1115
专家分：7025
注　册：2013-1-21

第 2 楼

得分:0

实时的,VBS格式

不怕错误,只怕知错不改.

2013-03-22 23:26

snrtjat

来　自：山那边海尽头
等　级：贵宾
威　望：22
帖　子：1115
专家分：7025
注　册：2013-1-21

第 3 楼

得分:0

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

不怕错误,只怕知错不改.

2013-03-22 23:32

snrtjat

来　自：山那边海尽头
等　级：贵宾
威　望：22
帖　子：1115
专家分：7025
注　册：2013-1-21

第 4 楼

得分:0

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

帮忙搞出来，谢谢！

不怕错误,只怕知错不改.

2013-03-23 12:16

snrtjat

来　自：山那边海尽头
等　级：贵宾
威　望：22
帖　子：1115
专家分：7025
注　册：2013-1-21

第 5 楼

得分:0

自己搞定了.
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!

不怕错误,只怕知错不改.

2013-03-23 23:14

快速回复：遇一问题,请神人们解决