44 / 24 / 1
Регистрация: 22.05.2012
Сообщений: 669
1

Копирование всех файлов из директории в нужную папку без замены

17.11.2015, 16:50. Показов 1548. Ответов 3
Метки нет (Все метки)

Подскажите. Нужно скопировать из одной папки в другую все файлы, но все это проходит с заменой, а мне нужно что бы если файл есть то он пропускается, а не засмеялся.

Копируется вот так.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 uses ShellAPI; //не забываем подключить модуль
...
function CopyDir(fromDir, toDir: string): boolean;
var
fos: TSHFileOpStruct;
todir2: string;
begin
todir2:=todir;
ZeroMemory(@fos, SizeOf(fos));
with fos do
begin
wFunc := FO_COPY;
//fFlags := FOF_FILESONLY;
fFlags:= FOF_SIMPLEPROGRESS;
fflags:= fflags or FOF_NOCONFIRMATION;
fflags:= fflags or FOF_SILENT;
pFrom := PChar(fromDir + #0);
pTo := PChar(toDir2);
end;
Result := (0 = ShFileOperation(fos));
end

Delphi
1
  CopyDir(PChar ('d:\Мои файлы\*.*'), PChar ('i:\NewCopy'));
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.11.2015, 16:50
Ответы с готовыми решениями:

Копирование файлов в нужную папку
Создал файл *.vbs. Задача. Из папки tmp скопировать файл в папку внутри FolderTo. Но есть...

Копирование файлов из директории из сети в папку C:\Windows\Fonts
Привет.Появилась необходимость копирования файлов из расшареной папки на сервере на ПК в локальной...

Копирование файлов из директории с поддиректориями в папку запуска bat-файла
Доброго времени суток! Столкнулся с необходимостью копирования файлов и папок из расшареной папки...

Копирование файлов с FTP-сервера на компьютеры клиентов без замены уже имеющихся файлов
Приветствую. Такая задача. имеется фтп сервер. на нем лежит 5 папок, в каждой паке каждый день...

3
Житель Земли
2907 / 2850 / 384
Регистрация: 26.07.2011
Сообщений: 11,124
Записей в блоге: 1
17.11.2015, 17:06 2
IMHO, флаги другие выставь.
0
44 / 24 / 1
Регистрация: 22.05.2012
Сообщений: 669
17.11.2015, 17:42  [ТС] 3
На какие заменить надо я не знаю, или где почитать про них
0
Житель Земли
2907 / 2850 / 384
Регистрация: 26.07.2011
Сообщений: 11,124
Записей в блоге: 1
17.11.2015, 17:44 4
а ты набери FOF_ /+ Ctrl пробел/ и посмотри что вывалится в ответ
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.11.2015, 17:44

Копирование всех файлов из одной директории в другую
Подскажите как правильнее написать скрипт который будет копировать файлы из одной директории в...

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

Рекурсивное копирование всех файлов определенного расширения в одну папку
как можно скопировать(из всех вложенных папок) все файлы определенного расширения в одну папку?...

Копирование всех файлов (кроме ярлыков) с рабочего стола в другую папку
Как создать командый файл для копирование всех файлов с рабочего стола (кроме ярлыков) в другую...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.