| Leon2009 |
11.01.2010 22:13 |
Копирование найденых файлов Delphi
Здравствуйте! может кто помочь? надо скопировать все найденные файлы. а как это сделать незнаю.
Код:
procedure GetAllFiles(mask: string);
var
search: TSearchRec;
directory: string;
begin
directory := ExtractFilePath(mask);
if FindFirst(mask, $23, search) = 0 then
begin
repeat
Form1.ListBox1.Items.Add(directory + search.Name);
copyfile(directory + search.Name, 'c:\1\'+directory + search.Name);
Inc(Count);
until FindNext(search) <> 0;
end;
if FindFirst(directory + '*.*', faDirectory, search) = 0 then
begin
repeat
if ((search.Attr and faDirectory) = faDirectory) and (search.Name[1] <> '.') then
GetAllFiles(directory + search.Name + '\' + ExtractFileName(mask));
until FindNext(search) <> 0;
FindClose(search);
end;
end;
Спасибо! |
