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

Вниз

Как программно скопировать папку в другу директорию ?   Найти похожие ветки 

← →
alpine   (2005-09-23 14:19) [0]

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

---

← →
TUser ©   (2005-09-23 14:20) [1]

SHFileOperation

---

← →
ssk ©   (2005-09-23 14:28) [2]

пути подставишь свои


var
 OpStruc: TSHFileOpStruct;
 frombuf, tobuf: Array [0..128] of Char;
begin
 FillChar( frombuf, Sizeof(frombuf), 0 );
 FillChar( tobuf, Sizeof(tobuf), 0 );
 StrPCopy( frombuf, "d:\brief\*.*" );
 StrPCopy( tobuf, "d:\temp\brief" );
 with OpStruc do begin
   Wnd := Handle;
   wFunc := FO_COPY;
   pFrom := @frombuf;
   pTo := @tobuf;
   fFlags := FOF_NOCONFIRMATION or FOF_RENAMEONCOLLISION;
   fAnyOperationsAborted := False;
   hNameMappings := Nil;
   lpszProgressTitle := Nil;
 end;
 ShFileOperation( OpStruc );
end;


---

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

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

Наверх

Память: 0.47 MB
Время: 0.058 c