помогите разобрать чужой код

[BOO]

вот юзал поиск, даже нашел что нужно даже программа почти работает но вот сиките:
Private fso As New scripting.FileSystemObject
Private Sub EnumFolders(Path As String)
On Error GoTo errhdl
Dim fsl As Folder
Dim fsf1 As File
Dim ndx As Node
Dim ndx1 As Node
Set fsl = fso.GetFolder(Path & "\")
For Each fsl1 In fsl.SubFolders
Call EnumFolders(Path & "\" & fsl1.Name)
Next fsl1
For Each fsf1 In fsl.Files
List1.AddItem fsf1.Name
Next fsf1
errhdl:
End Sub
Private Sub form_load()
EnumFolders ("c:")
End Sub

ЧЕ ТАКОЕ ndx As Node и почему у меня его нет???
ДА это писал RayShade код для поисков всех файлов а как сделать что бы он искал все файлы скажем(*.bmp)

[Fedorfx]

Подключи Microsoft Windows Common Contril 6.0 и у тебя появится Node.

[GSerg]

Во-первых, переменные node здесь вообще не используются.
Во-вторых, обрати внимание на строчку List1.AddItem fsf1.Name. Здесь и вставляй проверку на расширение.

[BOO]

А как сюда приделать прогресс бар, который хоть примерно будет указывать на объем выполненой работы. (у меня есть конечно идея: узнать сколько места на диске и примерно узнать за сколько времени считывается 10 файлов) Отсюда еще вопрос: как сделать чтобы при считывании программа отвечала и на другие события и как узанть занятое место на диске!!