Delphi-Help

RenameFile

Печать
Рейтинг пользователей: / 0
ХудшийЛучший 

RenameFile

Описание

function RenameFile ( const OldName, NewName : string ) : Boolean;

Delphi функция RenameFile переименовывает файл или папку и возвращает True если операция переименования прошла успешно.

Если имя файла или имя папки дано без указания пути, то файл должен быть в текущем каталоге.

Пример кода

var
oldName, newName : string;

begin
// Попытка переименовать Unit1.dcu в Uni1.old
oldName := 'Unit1.dcu';
newName := ChangeFileExt(oldName, '.old');
if RenameFile(oldName, newName)
then ShowMessage('Unit1.dcu переименован')
else ShowMessage('Unit1.dcu переименовка прошла с ошибкой : '+
IntToStr(GetLastError));

// Позвольте нам попробовать то же самое, переименовать снова
if RenameFile(oldName, newName)
then ShowMessage('Unit1.dcu снова переименован')
else ShowMessage('Unit1.dcu переименовка прошла с ошибкой : '+
IntToStr(GetLastError));

// Наконец, позвольте нам переименовать файл назад
if RenameFile(newName, oldName)
then ShowMessage('Unit1.old переименован обратно')
else ShowMessage('Unit1.old обратное переименование прошло с ошибкой : '+
IntToStr(GetLastError));
end;

Unit1.dcu переименован
Unit1.dcu переименовка прошла с ошибкой : 2
Unit1.old переименован обратно

Примечание

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

 

Авторизация



Счетчики