Описание |
Delphi функция RenameFile переименовывает файл или папку и возвращает True если операция переименования прошла успешно.
Если имя файла или имя папки дано без указания пути, то файл должен быть в текущем каталоге.
|
|
Примечания |
Вы можете переименовать файл на различных дисках, хотя это не рекомендуется.
|
|
Похожие команды |
AssignFile Связывает дескриптор файла с бинарным или текстовым файлом
DeleteFile Удаляет файл, указанный в параметре
Erase Стирает файл
IOResult Содержит возвращаемый код последней операции ввода/вывода
Rename Переименовка фала
| |
|
Пример кода : Переименование Unit1.dcu в Unit1.old и обратно |
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 переименован обратно
|
|