поиск файлов и папок

[GAGARIN-NEW]

Я думал обойтись без лишней проверки . просто маску правильно ввести.
Ведь проверка каждого файла замедлит работу процедуры

[student_63]

Ищет все файлы на всех дисках

[Lancer]

не нашел как удалить полностью) уже решил свою проблему

[Lancer]

нет, всетаки я не могу сам разобраться...

procedure ScanDir(StartDir: string; Mask: string ; List: TStrings);
var
  SearchRec: TSearchRec;
  t:string;
begin
  if Mask = '' then
    Mask := '*.*';
  if StartDir[Length(StartDir)] <> '\' then
    StartDir := StartDir + '\';
    Showmessage(inttostr(length(StartDir)));// смотрю из скольки символов состоит путь к папке
  if FindFirst(StartDir + Mask, faAnyFile, SearchRec)=0 then
  begin
    repeat
      Application.ProcessMessages;
      if (SearchRec.Attr and faDirectory) <> faDirectory then
          List.Add(StartDir + SearchRec.Name);
        else if (SearchRec.Name <> '..') and (SearchRec.Name <> '.')then begin
       // List.Add(StartDir + SearchRec.Name + '\');
      ScanDir(StartDir + SearchRec.Name + '\', Mask, List);
  end;
until FindNext(SearchRec) <> 0;
FindClose(SearchRec);
end;
end;

проблема такая, я в программе указываю путь к папке, программа сканирует эту папку, НО, если путь к нужной папке в ос состоит из <32 символов то все замечательно, все находит. Если же путь >32 то ничего не хочет искать... Почему? При пошаговой проверке показывает что FindFirst(StartDir + Mask, faAnyFile, SearchRec)=0, тоесть Должен начинаться цикл но нет, он переходит к концу процедуры как будто условие не выполнилось... Причем, раньше, программа работала с куда более длинным путем... После пары вылетов изза ошибок работы с базой начались вышесказанные проблемы(в программе идет добавление из указанной папки информации о файлах в этой папке в базу) , тоесть когда длинный путь не хочет работать... Может эти ошибки с базой както повлияли? Может изза них теперь путь не должен быть длинным? Помогите пожалуйста разобраться, я не пойму в чем дело...