Question

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

选定一个文夹。监控文件夹下文件的数量 ，转换成数值，并在文本框中实时显示出来，
文本框中数值是根据文件夹下实际的文件数量（增加或删除导致数量变化）实时更新显示的。

Answer 1

'首先先引用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

追问

请问一下Microsoft Scripting RunTime是怎么样引用的 能说一下吗