Создание резервной копии файла

@Neznaikka · Регистрация: 14.01.2011

Author24 — интернет-сервис помощи студентам

Написать функцию для создания страховочной копии файла .Первым знаком расширения страховочного файла должен быть знак "-". В остальном имя и расширения исходного и страховочного файлов различаться не должны.Запрещается использовать файловые переменные.

@yamilramilev · 14.01.2011, 19:43

FileName -полный путь к файлу. т.е. например C:\Program files\Borland\Delphi7\Projects\file.txt

Delphi

...
uses windows....
...
Procedure BackupFile(FileName:string);
var
  NewFileName:string;
begin
  NewFileName:=Copy(FileName,1,Length(FileName)-3)+'-'+Copy(FileName,Length(FileName)-2,Length(FileName));
  CopyFile(PChar(FileName),PChar(NewFileName),False);
end;

@Neznaikka · 14.01.2011, 19:52 **[ТС]**

прости я хреново в этом разбираюсь...но можешь полный код скинуть..

@Mad_Dog · 15.01.2011, 10:16

Neznaikka, вообще-то хорошим тоном в создании резервной копии файла является использование знака "тильда" (~)...

@Neznaikka 0 / 0 / 0 Регистрация: 14.01.2011 Сообщений: 3
		1
	Создание резервной копии файла 14.01.2011, 19:26. Показов 1523. Ответов 3 Метки нет (Все метки) Написать функцию для создания страховочной копии файла .Первым знаком расширения страховочного файла должен быть знак "-". В остальном имя и расширения исходного и страховочного файлов различаться не должны.Запрещается использовать файловые переменные. 0

@Neznaikka 0 / 0 / 0 Регистрация: 14.01.2011 Сообщений: 3
	14.01.2011, 19:52 [ТС]	3
	прости я хреново в этом разбираюсь...но можешь полный код скинуть.. 0

@Mad_Dog Фрилансер 452 / 433 / 117 Регистрация: 01.06.2010 Сообщений: 1,314
	15.01.2011, 10:16	4
	Neznaikka, вообще-то хорошим тоном в создании резервной копии файла является использование знака "тильда" (~)... 0