![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Копирование содержимого папки [D6, XP]
AlexGalkin © (2007-05-30 10:20:00)Мне нужно создать exe-файл, который мог бы копировать с одной папки (с:\1) со всем ее содержимым в другую папку (с:\2). Причем нужно предусмотреть замену файлов и папок без запроса пользователя.
AlexGalkin (2007-05-30 15:22:00) [1]
> Подробно о SHFileOperation здесь:
> http://www.delphikingdom.com/asp/viewitem.asp?catalogid=91
Большое спасибо за ссылку!!!
Очень помогла
Anatoly Podgoretsky (2007-05-30 11:39:00) [2]> AlexGalkin (30.05.2007 10:20:00) [0]
Это уже написано и поставляется с самой Виндоус
Amoeba (2007-05-30 11:05:00) [3]Подробно о SHFileOperation здесь:
http://www.delphikingdom.com/asp/viewitem.asp?catalogid=91
Робинзон (2007-05-30 10:56:00) [4]
function CopyDir(const fromDir, toDir: string): Boolean;
var
fos: TSHFileOpStruct;
begin
ZeroMemory(@fos, SizeOf(fos));
with fos do
begin
wFunc := FO_COPY;
fFlags := FOF_FILESONLY;
pFrom := PChar(fromDir + #0);
pTo := PChar(toDir)
end;
Result := (0 = ShFileOperation(fos));
end;
if CopyDir('D:\Проба', 'd:\Проба2') = True then
label1.Caption:='Процес копирования закончен успешно. Завершить?';
clickmaker (2007-05-30 10:47:00) [5]
> Мне нужно создать exe-файл, который мог бы копировать с
> одной папки
а зачем exe? bat.
copy /Y c:\1\*.* c:\2
Jeer (2007-05-30 10:45:00) [6]AlexGalkin © (30.05.07 10:20)
Особенно занятно будет A:\Windows > C:\Windows
DVM (2007-05-30 10:37:00) [7]Вопрос в чем? За тебя создать этот файл надо?