Копирование всех файлов из одной папки

← →
иван8511 (2007-06-28 19:17) [0]

Пожалуйста, научите как можно скопировать все файлы из одной папки в другую.
Спасибо.

← →
Anatoly Podgoretsky © (2007-06-28 19:19) [1]

> иван8511 (28.06.2007 19:17:00) [0]

Для всех файловых операций используйте ShFileOperation

← →
ivan8511 (2007-06-29 12:51) [2]

А по подробнее можно? Я совсем недавно в Delphi.

← →
Плохиш © (2007-06-29 12:55) [3]

http://delphimaster.net/view/2-1180973368/

← →
Pohil © (2007-06-29 12:56) [4]

FindFirst
FindNext
ShFileOperation

← →
THandle © (2007-06-29 13:01) [5]

Создай свою функцию.
примерно вот так:
uses ShellAPI;
...
Function FileOperation(File1,File2:string; opt:integer):integer;
var
S:TSHFILEOPSTRUCT;
begin
with S do
begin
Wnd:=0;
pFrom:=PChar(File1);
pTo:=PChar(File2);
wFunc:=opt;
fFlags:=FOF_ALLOWUNDO;
end;
Result:= SHFileOperation(S);
if Result <> 0 then
if S.fAnyOperationsAborted then Result := 1 else Result:=2;
end;

> FindFirst
> FindNext

Это здесь лишнее.

Копирование всех файлов из одной папки Найти похожие ветки