Сканирование директорий

[kuhtiov]

Здравствуйте уважаемые форумчане!!!
Недавно появилась необходимость реализовать сканирование директорий на наличие файла, пусть будет index.html. Делал так:
Создавал на форме объект типа Dir1. В коде я пишу:

Dir1.Path = “c:\windows\”
For i = 0 to 1
Dir1.ListIndex = i
Next i
Print Dir1.Path

В итоге, появляется текст c:\windows , а не вложенная в Windows папка. Как с помощью примерно такого кода перейти в папку, чтобы Dir1.Path был “C:\WINDOWS\addins” и т.д.?

[Viper]

нда... как то так

Код: Выделить всё

For i = 0 To Dir1.ListCount - 1
Debug.Print Dir1.List(i)
Next i

[kuhtiov]

Спасибо!!!

[RayShade]

Вообще то есть такая отличная штука как FSO. Так вот там есть не менее отличные объект Folder, с просто таки замечательными пропертями Folders и Files.

[Viper]

ну хочется человеку поизвращаться через этот контрол...

[BV]

Dir кто-то отменял?

[kuhtiov]

немного не тот случай

[BV]

Чем, интересно, не тот?