Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.07.22;
Скачать: CL | DM;

Вниз

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

 
иван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;


 
Плохиш ©   (2007-06-29 13:02) [6]


> FindFirst
> FindNext

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


 
THandle ©   (2007-06-29 13:05) [7]


> Pohil ©   (29.06.07 12:56) [4]
>
> FindFirst
> FindNext


Если уж на то пошло, то ещё FindClose надо:)



Страницы: 1 вся ветка

Текущий архив: 2007.07.22;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.015 c
15-1182493849
StriderMan
2007-06-22 10:30
2007.07.22
Пакетная обработка DFM


10-1134471389
Well
2005-12-13 13:56
2007.07.22
Excel. Как управлять автофигурами.


2-1182965649
mc0808
2007-06-27 21:34
2007.07.22
Программа не запускается на машине без Дельфи


15-1182676769
Коллер
2007-06-24 13:19
2007.07.22
Поворот прямой


2-1183010969
Phoenix
2007-06-28 10:09
2007.07.22
TreeView , как пробежатся по нему?