Вот блин... а я сходил по сылке и у меня получилось отобразить имена сканируемых файлов. Я только код доработал немного.
2 klen_ Спасибо за ссылочку, обязательно в свои "кирпичики" скопирую :)
С уважением, Николай.

А вот почему то нехочется...
Если мы ходили по одной и той же ссылке и видели один и тот же исходник...
То почему один из нас подумал и за 10 минут доработал код под свои нужды, а второй ждет что ему его выложат на блюдечке.
Если не прав пусть меня забанят модераторы.
С уважением, Николай.

2VipFedor
А что вы понимаете под
VipFedorимя сканируемого в текущий момент времени файла,
С уважением, Николай.

Насчет жадности ты загнул :)
Теперь по поводу кода.

Мое решение предполагало поиск по маске "*.*"
В результате чего все файлы попадут в коллекцию FoundFiles. Однако если добавить в цикл условие с той маской которая нужна тебе то в результате получим следующее...

Private Sub CommandButton1_Click()
Dim intI

With Application.FileSearch
.FileName = "*.*"
.LookIn = "C:\winnt\system32"
.Execute
For intI = 1 To .FoundFiles.Count
DoEvents
Label1.Caption = .FoundFiles(intI)
If .FoundFiles(intI) Like "*.txt" Then ListBox1.AddItem .FoundFiles(intI)
Next intI
End With

End Sub

Однако из-за того что в код введено DoEvents (если обойтись без него то форма не умеет отрисоваться заново) и поиск ведется по "*.*" я считаю нецелесообразным отображение имени сканируемого файла на каком-либо элементе формы.
Поэтому я и задал вопрос об имени сканируемого файла.
Так что работать то оно работает, но вот производительность ИМХО начинает прихрамывать.
На досуге попробую сделать тоже самое с FindFirstFile, FindNextFile, FindClose. Может получится быстре....
И последнее если я не разбираюсь в вопросе, то и постить в тему не буду, а почитаю ответы сведущих в этом деле форумчан. И на "понт", пожалуйста, прошу меня больше не брать, таким вот высказываниями :)
VipFedorP.S. Есть очень большое подозрение, что Вы не разобрались в это вопросе и просто очень много говорите. Если это не так, то докажите обратное =)))

С уважением, Николай.
P.S. Надеюсь все недоразумения исчерпаны, и словесной перепалки не по теме топика не будет.