Поиск нужных файлов по системным дискам

[SIV84]

Доброе время суток. Хочу изнать насколько реально реализовать мою задумку. Насколько реально написать макрос, который при первом запуске программы произвел бы поиск нужных файлов для ее работы по системным дисками возможен ли вариант поска по сетевым дискам?

Зараннее спасибо за ответ!

[mistx]

Сообщение от SIV84

Доброе время суток. Хочу изнать насколько реально реализовать мою задумку. Насколько реально написать макрос, который при первом запуске программы произвел бы поиск нужных файлов для ее работы по системным дисками возможен ли вариант поска по сетевым дискам?

Зараннее спасибо за ответ!

вот макрос
этот макрос находит все файлы с расш-м .jpg на определенном диске
в определ-й директории.
выводит в ексел - имя и путь файла
Sub findJpgFiles()
Cells.Clear
' добав-е заголовков
Range("A1:D1").Value = Array("FileName", "Path", "FileName")
NextRow = 2
With Application.FileSearch
.NewSearch
.LookIn = "C:\"
.SearchSubFolders = True
.Filename = "*.jpg"
.Execute
FilesToProcess = .FoundFiles.Count
For i = 1 To .FoundFiles.Count
ThisEntry = .FoundFiles(i)
Cells(NextRow, 1).Value = ThisEntry
For j = Len(ThisEntry) To 1 Step -1
If Mid(ThisEntry, j, 1) = Application.PathSeparator Then
Cells(NextRow, 2) = Left(ThisEntry, j)
Cells(NextRow, 3) = Mid(ThisEntry, j + 1)
Exit For
End If
Next j
NextRow = NextRow + 1
Next i
End With
End Sub

[SIV84]

Подскажите пожалуйста почему на выполнении Application.FileSearch выдает ошибку Object doesn't support this action

[mistx]

Сообщение от SIV84

Подскажите пожалуйста почему на выполнении Application.FileSearch выдает ошибку Object doesn't support this action

У вас какой excel?
2003 или 2007?

[EducatedFool]

Сообщение от SIV84

Подскажите пожалуйста почему на выполнении Application.FileSearch выдает ошибку Object doesn't support this action

Всё очень просто:

Application.FileSearch doesn't exist in Excel 2007

В 2007-й версии Microsoft отключила Application.FileSearch (он присутствует, но доступа к нему нет )

Так что, если у Вас Office 2007, придётся использовать другие способы...

Посмотрите здесь: http://www.sql.ru/forum/actualthread...&hl=filesearch

Или здесь

Сообщение от mistx

вот макрос
этот макрос находит все файлы с расш-м .jpg на определенном диске
в определ-й директории.

Макрос, конечно, хороший. Но работает как-то странно...
Если написать .LookIn = "c:\": .SearchSubFolders = True: .Filename = "*.bmp", то он находит, к примеру, 27 файлов,
а если .LookIn = "c:\windows": .SearchSubFolders = True: .Filename = "*.bmp" - то намного больше (около 400)

Почему так - не понял...

Сообщение от SIV84

поиск нужных файлов для ее работы по системным дискам

А у Вас много системных дисков?
Вообще-то, системный диск обычно один...

Сообщение от SIV84

Насколько реально написать макрос, который при первом запуске программы произвел бы поиск нужных файлов для ее работы по системным дисками возможен ли вариант поска по сетевым дискам?

Вполне реально, но поиск может занять много много времени.
Особенно, если искать на сетевых дисках...

По сути, работа с сетевыми дисками практически ничем не отличается от работы с локальными. Так что проблем с сетевыми дисками не будет.

Лучше просматривать только отдельные диски или папки.

Вообще, Application.FileSearch - глючная штука, поэтому я рекомендовал бы Вам использовать FileSystemObject (к тому же, он будет нормально работать на всех версиях Windows и Office)

[mistx]

Сообщение от EducatedFool

Макрос, конечно, хороший. Но работает как-то странно...
Если написать .LookIn = "c:\": .SearchSubFolders = True: .Filename = "*.bmp", то он находит, к примеру, 27 файлов,
а если .LookIn = "c:\windows": .SearchSubFolders = True: .Filename = "*.bmp" - то намного больше (около 400)

Почему так - не понял...

Очень странно.
сейчас сделал поиск файлов bmp
на диске с - около 5669
в папке windows нашел 407.
Вроде все ок.

[Ralf_ru]

Госпада помагите...
Ищу файлы с помощью MatchesMask:
type
TFileName = string;
TMatchesMask = function(TFileName:string;mask:stri ng): boolean;



if FindFirst(filename, faAnyFile,SearchRec) = 0 then
repeat
if MatchesMask(searchRec.name,FileName ) then
begin
n := n + 1;
a[n]:=(SearchRec.Name);
end;
until FindNext(SearchRec) <> 0;
При чтении второго условия выдается ошибка - proect.exe raised too many consecutive exceptions : 'access violation at 0x00000000: read of address 0x00000000'. process stoped.
В чем дело? Может в объявлении MatchesMask (неправильном), может потомучто в Viste, а может ещё что?