Главная страница
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.47 MB
Время: 0.021 c
2-1182878717
T.V
2007-06-26 21:25
2007.07.22
Вопрос по ф-ции GetProcessImageFileName


15-1182603423
Коллер
2007-06-23 16:57
2007.07.22
Уравнение прямой


9-1156784627
Начинающий_1
2006-08-28 21:03
2007.07.22
OpenGL. Помогите оптимизировать код.


8-1162202011
olegnik
2006-10-30 12:53
2007.07.22
Работа с растровым изображением.


2-1183019447
Alex8
2007-06-28 12:30
2007.07.22
QUERY-SQL