|
|
|
Forum Member
 
участник
Last Login: 26.09.2002 12:56
Сообщ.: 46,
Visits: 507
|
|
Люди, помогите решить задачу: из задаваемой пользователем папки нужно скопировать
все файлы по маске (пример "arj") в папку c:\vrem. Никак не могу найти решение
Жду ответа по e-mail: leyftd@mail.ru
|
|
|
|
|
Forum Guru
участник
Last Login: 23.07.2002 13:31
Сообщ.: 52,
Visits: 573
|
|
Копирует все из 1 в 2
uses shellapi!
Var Fo : TSHFileOpStruct;
buffer : array[0..4096] of char;
p : pchar;
begin
{ FillChar(Buffer, sizeof(Buffer), #0);
p := @buffer;
p := StrECopy(p, 'C:\1\*.*') ;
// p := StrECopy(p, 'C:\DownLoad\3.ZIP)+1 ;
// StrECopy(p, 'C:\DownLoad\4.ZIP');
FillChar(Fo, sizeof(Fo), #0);
Fo.Wnd := Handle;
Fo.wFunc := FO_COPY;
Fo.pFrom := @Buffer;
Fo.pTo := 'c:\2';
Fo.fFlags := 0;
if ((SHFileOperation(Fo) <> 0) or
(Fo.fAnyOperationsAborted <> false)) then
ShowMessage('Cancelled')
}
|
|
|
|