Поиск графических файлов

[Rik3D]

Как найти все графические файлы в папках и подпапках?

[Igor_123]

Ёпересете

FSO

Поиск
RTFM
Google
Rambler
Yahoo
...

[Rik3D]

Igor_123, смешно!
Но это не то, мне в папках и подпапках графические файлы искать наго, по расширениям не перебирать же их?!
A FSO хороший инструмент, но про графические файлы ничего не сказано: http://www.citforum.ru/programming/digest/fsovb6.shtml[/url]

[uhm]

Именно по расширениям. А как иначе? FileTypes тебе тут не помогут.

[Igor_123]

Интересно, а как отличить графический файл от какого-то другого или тебе для стеганографии , или ты думаешь, что цинда ища все графические файлы найдет тебе бмпшку с изменённым расширением?
Кстати на 2000 я не нашёл такой опции как найти все графические файлы

[Igor_123]

2 uhm прикольная аватара

[uhm]

Спасибо

[Rik3D]

Спасибо за советы!
А как создать цикл, чтобы exel с листа поиск провёл, где у меня имя.расширение, и графичиские файлы переписал на другой лист
Выводит на лист все файлы.расширение:
With Application.FileSearch
.NewSearch
.LookIn = "c:\Program files"
.FileType = msoFileTypeAllFiles
.SearchSubFolders = True
.Execute msoSortByFileName
For i = 1 To .FoundFiles.Count
Worksheets(4).Cells(i, 1) = Mid$(.FoundFiles(i), InStrRev(.FoundFiles(i), "\") + 1)
Next
End With
End Sub
Как преобразовать?

[Igor_123]

Записываешь макрос в котором ищешь определённое расширение.
Смотришь как, составляешь список расширений которые надо найти и делаешь цикл, который по списку ищет расширения, с найденным делаешь, что хочешь

Удачи

[Rik3D]

Igor_123, спасибо!

[Rik3D]

Igor_123, я сделал по-доугому, процедура читает файлы с листа и перекидывает их по рашширению на другой
With Application.FileSearch
.NewSearch
.LookIn = "Worksheets(4)"
.Filename = "*.jpg"
.Filename = "*.bmp"
.FileType = msoFileTypeAllFiles
.SearchSubFolders = True
.Execute msoSortByFileName
For i = 1 To .FoundFiles.Count
Worksheets(3).Cells(i, 1) = Mid$(.FoundFiles(i), InStrRev(.FoundFiles(i), "\") + 1)
Next
End With
End Sub