Как скопировать папку с вложенными файлами в делфи

[FACE OFF]

Мне нужна функция резервного копирования. При нажатии на кнопку открывается диалог выбора папки. А затем в эту папку коипровались все файлы, которые находятся в папке data. Подскажите, как это можно сделать?

Заранее спасибо.

[Stilet]

Искать примеры типа этого: http://www.delphiworld.narod.ru/base..._move_dir.html

[SERG1980]

uses ShellApi
....
procedure TForm1.Button1Click(Sender: TObject);
var CF:TSHFileOpStruct;
begin
 CF.Wnd:=0;
 CF.pFrom:='D:\P-CAD\PDFники\*.*';//откуда копируем файлы для вас будет ваша папка
 CF.pTo:='D:\PDFники';//куда копируем если такого каталога нет то будет предложено его создать
 CF.wFunc:=FO_COPY;//задаём флаг копирования
 CF.fFlags:=FOF_ALLOWUNDO;//пусть будет этот флаг
 if ShFileOperation(CF) = 0 then showmessage('Скопировано');
end;

ну диалог выбора папки думаю добавите сами

[FACE OFF]

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

uses ShellApi
....
procedure TForm1.Button1Click(Sender: TObject);
var CF:TSHFileOpStruct;
begin
 CF.Wnd:=0;
 CF.pFrom:='D:\P-CAD\PDFники\*.*';//откуда копируем файлы для вас будет ваша папка
 CF.pTo:='D:\PDFники';//куда копируем если такого каталога нет то будет предложено его создать
 CF.wFunc:=FO_COPY;//задаём флаг копирования
 CF.fFlags:=FOF_ALLOWUNDO;//пусть будет этот флаг
 if ShFileOperation(CF) = 0 then showmessage('Скопировано');
end;

ну диалог выбора папки думаю добавите сами

Вставил, работает. Но только если путь куда копировать записан в виде '...'.
А Если пишу вот так:

CF.pTo:=DirDialog1.DirPath;

(естественно предварительно выбрав категорию) ; То выдает ошибку и пишет: Incompatible types: 'String' and 'PAnsiChar'

А чем ошибка?

[SERG1980]

CF.pTo:=PChar(DirDialog1.DirPath);

[FACE OFF]

Спасибо огромное.

[FACE OFF]

Еще один вопрос.а как сделать так, что бы при копировании эти файлы заменяли собой более старые?

[SERG1980]

Надо у структуры сменить вот этот флаг

CF.fFlags:=FOF_NOCONFIRMATION;

[AHBAR]

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

uses ShellApi
....
procedure TForm1.Button1Click(Sender: TObject);
var CF:TSHFileOpStruct;
begin
 CF.Wnd:=0;
 CF.pFrom:='D:\P-CAD\PDFники\*.*';//откуда копируем файлы для вас будет ваша папка
 CF.pTo:='D:\PDFники';//куда копируем если такого каталога нет то будет предложено его создать
 CF.wFunc:=FO_COPY;//задаём флаг копирования
 CF.fFlags:=FOF_ALLOWUNDO;//пусть будет этот флаг
 if ShFileOperation(CF) = 0 then showmessage('Скопировано');
end;

ну диалог выбора папки думаю добавите сами

А если нужно чтоб не спрашивали меня о создании папки, а если выходная папка не существует, то создавалась автоматически. как это реализовать?

[Stilet]

CF.fFlags:=FOF_ALLOWUNDO+FOF_NOCONFIRMATION;//пусть будет этот флаг