Поиск файлов

[student_63]

Здравствуйте, господа, подскажите как написать программу, которая производит поиск одинаковых файлов, хранящихся в различных каталогах, причем, вводить имя файла и каталога не следует (по всему винту)

[alexBlack]

Запоминать все пройденные файлы. Для каждого номера проверять нет ли его в списке уже пройденных.

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

З.Ы. Шерлок был неоднозначен. При таких условиях может быть невыносимо длинной вторая глава или предисловие.

[Air]

На форуме столько раз обсуждали поиск файлов, осталось только покусочкам собрать.

Ишеш так

...
var SearchRec:TSearchRec 
...
FindFirst(FileMask, FFileAttr, SearchRec) // функция поиска
...
SearchRec.Name // это имя, так же есть и атрибуты.
...
FindNext(SearchRec) // это искать дальше
...

FileMask
типа 'C:\*.*' искать будет только в той директории какую укажешь.

FFileAttr:
faReadOnly
faHidden
faSysFile
faVolumeID
faDirectory
faArchive
faSymLink
faAnyFile

Примерный код надо?

[student_63]

Да, примерный код желательно, любая инфа нужна. Я хотел помещать все файлы в массив: 1 поле имя файла, 2 поле путь, 3 поле контр. сумма. Так вот как получить мне эту конт. сумму и путь. Подскажите, пожалуйста

[student_63]

С файловой системой еще не работал ни разу. Может можно использовать API- фун-ии???

[Air]

Функция удаляет файлы из указанной папки, с Result пока не очень.

function DelDir(DirName,NotDel:string):boolean;
var
SearchRec:TSearchRec;
hFindFile:integer;
begin
result:=false;
hFindFile:=FindFirst(DirName+'\*.*',faAnyFile,SearchRec);
while hFindFile=0 do
begin
if ((SearchRec.Attr and faDirectory)=0) then
if DeleteFile(DirName+'\'+SearchRec.Name) then result:=true else result:=false else
if (SearchRec.Name <> '.') and (SearchRec.Name <> '..') and (SearchRec.Name <> NotDel) then
DelDir(DirName+'\'+SearchRec.Name,'');
hFindFile:=FindNext(SearchRec);
end;
FindClose(SearchRec);
end;

Функция сканирует указанный путь на наличие файла и записывает путь в TstringList

function ScanDiskToFile(FileMask,SearchFile: string):TstringList;
var
dtr,Str:TstringList;
SearchRec:TSearchRec;
hFindFile:integer;
begin
hFindFile:=FindFirst(FileMask+'\*.*',faAnyFile,SearchRec);
while hFindFile=0 do
 begin
  application.ProcessMessages;
  if ((SearchRec.Attr and faDirectory)=0) then
   begin
    if SearchRec.Name=SearchFile then
    dtr.Add(FileMask+'\'+SearchFile);
    result:=dtr;
   end
  else
   if (SearchRec.Name <> '.') and (SearchRec.Name <> '..') then
    begin
     str:=ScanDiskToFile(FileMask+'\'+SearchRec.Name,SearchFile);
     try
     if str.Names[str.Count-1] <> '' then dtr.Add(FileMask+'\'+SearchFile);
     except
     end;
    end;
  hFindFile:=FindNext(SearchRec);
 end;
FindClose(SearchRec);
end;

Это простые и почти одинаковые функции, главное логику поймёте и напишите свою. (как я когда-то)

[student_63]

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

как мне реализовать это в дельфи?
Air, спасибо за фун-ии, буду пытаться применять их в своем проекте