Копирование найденых файлов Delphi

[leonw]

Здравствуйте! может кто помочь? надо скопировать все найденные файлы. а как это сделать незнаю.

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;

Спасибо!

[_bAd_]

фрагмент << 'c:\1\'+directory + search.Name >> занеси в какую-нить строковую переменночку и посмотри чо там. Там скорее всего некорректный путь

[leonw]

не даже не помогает.

CopyFile(directory + search.Name,'c:\1\'+directory + search.Name,true);

как ставлю кавычки ошибка исчезает, но копирование тогда невозможно.
а без кавычек красным загарается строка

[_bAd_]

я не совсем понял что изменилось. попробую намекнуть:

Эта сумма строк
'c:\1\'+directory + search.Name
скорее всего хранит что-то типа:
c:\1\D:\Directory\File.ext
а это недопустимый путь если я не ошибаюсь

.. лана. смари... ты суммируешь слудующие строки:
'c:\1\' которая равна естественно 'c:\1\'
directory которая равна какому-то пути, включая имя логического диска
search.Name - имя файла
Всё пучком , но в сумме получится "c:\1\D:\...", что не есть гуд
И дело тут не в ковычках.

[leonw]

_bAd_ - думаю наверное ты ошибаешься, может и не прав я?
моленько поэксперементировал.

CopyFile(PChar(directory + search.Name),PChar(directory + search.Name),true);

перевел в pchar, (не знал что в copyfile стрниг не лезит).
потом сделал так:

CopyFile(PChar(directory + search.Name),'c:\1\1.doc',true);

скопировал первый найденый файл.
потом попытался подставить с:\1\ рядом с директорией.

CopyFile(PChar(directory + search.Name),'с:\1\'+PChar(directory + search.Name),true);

вылезла ошибка - красная полоска т.е нельзя запустить программу.
и так пробывал

CopyFile(PChar(directory + search.Name),'c:\1\'+search.Name,true);

[RIO]

Мне кажется это то, что вам нужно.
PS: Писал на ходу, не проверял, строго не судите

  I := FindFirst(Здесь директория в которой ищем + рассширение, FAAnyFile, SR);
  while I = 0 do
  begin
        if (SR.Name = '.') or (SR.Name = '..') then
        begin
           I := FindNext(SR);
           Continue;
        end;
        S := SR.Name;
        CopyFile(От куда, и куда, тру);
        I := FindNext(SR);
  end;

[leonw]

Все додумал:

         files:='c:\1\'+search.Name;
         CopyFile(PChar(directory + search.Name),PChar(files),true);

мучился мучился но до думал!
Спасибо!!!!

[_bAd_]

... (ругань)