Поиск файлов

[kholoshchak]

Всем добрый вечер. Нужна ваша помощь. Суть в следующем. Имеется процедура которая сканирует диск и выводит список файлов во всех каталогах и подкаталогах. Как сделать чтобы процедура сканировала не все каталоги, а пропускала такие как C:\Windows, C:\Program Files. Что для этого нужно сделать? За ранее спасибо.

[Stilet]

Видимо нужно в этой процедуре прописать условие невыполнения (ничего неделанья) если имя такое встретилось.

[kholoshchak]

Это понятно что условие. Я пробовал различные варианты условий, но программа все равно ищет файлы в этих директориях. Что еще придумать ума не хватает...

[Человек_Борща]

показывайте, что предумали))

[kholoshchak]

Вот мое приложение. Я пробовал присваивать пустое значение, если есть совпадение в path и удалять. В общем ничего не получается. Есть только вариант сделать ограничения при выводе в ListView, но это не вариант, так как директории все равно будут сканироваться и на них будет затрачиваться время. В общем у кого есть какие мысли, предложения, поделитесь.

[northener]

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

Вот мое приложение. Я пробовал присваивать пустое значение, если есть совпадение в path и удалять. В общем ничего не получается. Есть только вариант сделать ограничения при выводе в ListView, но это не вариант, так как директории все равно будут сканироваться и на них будет затрачиваться время. В общем у кого есть какие мысли, предложения, поделитесь.

А как вы думаете? 'C:\Wndows\System32' и 'c:\wndows\system32' это одно и то же строковое значение?

[IliaIT]

Как мне подсказали надо сравнивать через функцию SameText(str1, str2) в таких случаях. где не учитывается регистр так что попробуй использовать эту функцию.

[Serge_Bliznykov]

northener, +1

тогда уже пишите так:

if AnsiCompareText(path, 'c:\windows\system32\') = 0 then ....

кроме этого.
1) srec.Name='c:\windows\system32' then
это условие не выполнится НИКОГДА!


2) если нужен поиск по маске файла, то можно воспользоваться следующим примером (MatchesMask):

// чтобы работал if MatchesMask(... нужно в uses дописать Masks


procedure DirSearch(Dir: string; Mask : string; SL: TStrings);
var
  SearchRec: TSearchRec;
begin
  Dir := IncludeTrailingBackslash(Dir);

  if FindFirst(Dir + '*.*', faAnyFile, SearchRec) = 0 then
    repeat
      Application.ProcessMessages;

      if (SearchRec.Attr and faDirectory) <> 0 then begin
        if (SearchRec.name <> '.') and (SearchRec.name <> '..') then
                DirSearch(Dir + SearchRec.name, Mask, sl)
      end
      else
        if MatchesMask(ExtractFileName(SearchRec.Name), Mask) then
          Sl.Add(Dir + SearchRec.Name);
    until FindNext(SearchRec) <> 0;
  FindClose(SearchRec);
end;

...
// вызов, например, так:
  DirSearch('C:\TEMP', '*.AVI', Memo1.Lines);