VPF::копирование не работает?! - Форум программистов

Volkogriz

Дата 16.1.2014, 20:53 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 216
Регистрация: 16.9.2007

Репутация: 1
Всего: 1

Доброго времени суток!
Всех с новым годом!
У меня возникла такая проблема:
Есть список файлов например:
Файл.EXE
Файл.dat
Файл.doc
Файл.RFD
DATA\Нефайл.doc
DATA\Нефайл.RFD

Код


var
ReservCopy:TStringList;
Cop:Integer;
begin
ReservCopy:=TStringList.Create;
ReservCopy.LoadFromFile(ExtractFilePath(Application.ExeName)+'data\BackupFile.dat');
for Cop:=0 to ReservCopy.Count-1 do
begin
if CreateDir(ExtractFilePath(Application.ExeName)+'data\BackupFile\'+ExtractFilePath(ReservCopy.Strings[Cop])) then
 if copyfile(Pchar(GamPatch+ExtractFilePath(ReservCopy.Strings[Cop])+ExtractFileName(ReservCopy.Strings[Cop])),Pchar(ExtractFilePath(Application.ExeName)+'data\BackupFile\'+ExtractFilePath(ReservCopy.Strings[Cop])+ExtractFileName(ReservCopy.Strings[Cop])+IntToStr(Cop)),true)  then

Копирует только первые файлы с разными именами из списка.
Что не так подскажите плиз.
За ранее Благодарен!
С уважением,
Volkogriz!

Добавлено через 8 минут и 30 секунд
Упс smile

не туда написал

--------------------

("`-''-/").___..--''"`-._`6_6 ) ,,,`-. ( ''' ).` "_-.__.')(_Y_.)' ._''' ) `._ `. ``-.__'.-'_..`--'_..-_/'''/--'_.' ,'(il).-'''''(li).' ((!.-'

Akella

Дата 21.1.2014, 14:59 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329

А это зачем?

Код

if CreateDir(ExtractFilePath(Application.ExeName)+'data\BackupFile\'+ExtractFilePath(ReservCopy.Strings[Cop])) then

Посмотри, что возвращает CreateDir, если папка уже существует ;)

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »