Описание:
Delphi функция RenameFile
переименовывает файл или папку и возвращает True если операция переименования
прошла успешно.
Если имя файла или имя папки
дано без указания пути, то файл должен быть в текущем каталоге.
|
Новые статьи:
|
RenameFileпозволяет переименовать файл или директорию || function RenameFile ( const OldName, NewName : string ) : Boolean; Описание:
Delphi функция RenameFile
переименовывает файл или папку и возвращает True если операция переименования
прошла успешно.
Пример кода:
var
oldName, newName : string; begin // Try to rename the current Unit1.dcu to Uni1.old oldName := 'Unit1.dcu'; newName := ChangeFileExt(oldName, '.old'); if RenameFile(oldName, newName) then ShowMessage('Unit1.dcu renamed OK') else ShowMessage('Unit1.dcu rename failed with error : '+ IntToStr(GetLastError)); // Let us try the same rename again if RenameFile(oldName, newName) then ShowMessage('Unit1.dcu renamed again OK') else ShowMessage('Unit1.dcu rename failed with error : '+ IntToStr(GetLastError)); // Finally, let us rename the file back again if RenameFile(newName, oldName) then ShowMessage('Unit1.old renamed back OK') else ShowMessage('Unit1.old rename back failed with error :'+ IntToStr(GetLastError)); end; Результат выполнения:
Unit1.dcu renamed OK
|
|
|
|
||