各位大哥，这种问题怎么解决啊！一点思路都没有。

[endisoft]

我想做一个实时监控程序。
监控的内容很简单，就是要监视系统盘的空间。
如果小于500MB，就每隔5分钟提示一次。
小弟，刚接触VB。不懂啊.

[goodname008]

用Timer。
调用API函数GetDiskFreeSpaceEx可以获得指定磁盘的剩余空间。

[winehero]

'Form1上添加Timer控件，工程中引用Microsoft Scripting Runtime，将代码复制到窗体代码中：
Option Explicit
Dim fso As FileSystemObject
Dim fd As Folder

Private Sub Form_Load()
Set fso = New FileSystemObject
Set fd = fso.GetSpecialFolder(SystemFolder)
Timer1.Interval = 60
End Sub

Private Sub Timer1_Timer()
If fd.Drive.AvailableSpace <= 500000000 Then
'空间小于500MB报警：
Beep
End If
End Sub

[njxl]

如果要监视网络盘,我以前做法是将网络盘映射为本地盘符,

用Timer。
调用API函数GetDiskFreeSpaceEx可以获得指定磁盘的剩余空间。

beep()可提供本地机提示音,也可用弹出msgbox做法,将form改为msgbox,同时运用timer