'放置3個timer控件，依次命名為timer1，timer2，timer_time
'將下面代碼放到代碼框中。
Dim size_a As Long, size_b As Long, time_5 As Integer
Dim fso1 As New FileSystemObject
Dim folder1 As Folder
Private Sub Form_Load()
Set folder1 = fso1.GetFolder("d:\samples") '文件夾的位置，根據自己的修改
Print folder1.Size, time_5
Timer1.Interval = 1
Timer2.Interval = 2
Timer_time.Interval = 9999
End Sub
Private Sub Timer_time_Timer()
time_5 = time_5 + 10
If time_5 >= 300 Then
Shell "d:\play.exe" '文件的位置，根據自己的修改
Shell "d:\sendmail.exe" '文件的位置，根據自己的修改
End If
End Sub
Private Sub Timer1_Timer()
Set folder1 = fso1.GetFolder("d:\samples") '文件夾的位置，根據自己的修改
size_a = folder1.Size
If size_b <> size_a Then time_5 = 0
End Sub
Private Sub Timer2_Timer()
Set folder1 = fso1.GetFolder("d:\samples") '文件夾的位置，根據自己的修改
size_b = folder1.Size
End Sub