Мониторинг файлов в каталоге

[ugol_divana]

Добрый день.
Есть скрипт, для мониторинга файлов в папке и выдачи сообщения с их кол-вом на экран, а так же сообщение с именем каждого файла. Подскажите, что выкинуть из скрипта, чтобы выдавалось только сообщение о кол-ве файлов и все.

Dim fso,mySet,myDir,st
Dim s()
i=0

Dim regEx, Match, Matches, regtxt
Set regEx = New RegExp
regEx.IgnoreCase = True
regEx.Global = True

mySet="*.txt *.gif"

For Each m1 in Split(mySet," ",-1,1)
regtxt = regtxt & "\." & m1 & "$|"
Next
regEx.Pattern = Left(regtxt, Len(regtxt)-1)

myDir="c:\12345"

Set fso = CreateObject("Scripting.FileSystemObject")

Sub ListFolder(curDir)
On Error Resume Next
For Each f1 in fso.GetFolder(curDir).Files
If Err.Number = 0 Then
If regEx.Test(f1) Then
ReDim Preserve s(i+1)
s(i) = f1.path
i=i+1
End If
End If
Next
Err.Clear
For Each s1 in fso.GetFolder(curDir).SubFolders
If Err.Number = 0 Then
ListFolder(s1.path)
End If
Next
Err.Clear
On Error Goto 0
End Sub

ListFolder(myDir)

For k=0 To i-1
MsgBox "В каталоге С:\12345 имеются файлы *.txt, *jpg. Количество файлов: " & i & vbCrLf & st
st=k+1 & ") " & s(k) & vbCrLf
Next

[sunnykey]

Конец подправить нужно, оставить только MsgBox
'For k=0 To i-1
MsgBox "В каталоге D:\Downloads имеются файлы *.txt, *jpg. Количество файлов: " & i '& vbCrLf & st
'st=k+1 & ") " & s(k) & vbCrLf
'Next