VB中如何实时监控指定文件夹下文件个数，（实时更新文件个数的变化）并转换成文本值在界面中显示出来？

'首先先引用Microsoft Scripting RunTime
'放置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