Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Object Pascal: кроссплатформенные технологии > Переименование директории в FPC

Автор: logoff 23.2.2009, 11:15

Собственно такой вопрос: существует ли в FPC процедура переименования директорий?
И если нет то как лучше осуществить?
Мне на ум приходит только такое: создать директорию с новым именем -> скопировать в нее все файлы из старой -> удалить старую директорию... но это уж помойму как-то слишком smile

Автор: volvo877 23.2.2009, 11:35

RenameFile справляется с переименованием папок:

Код


uses sysutils;
begin
  if RenameFile('F:\T\' , 'F:\T1\') then Writeln('Success.');
end.

Автор: logoff 23.2.2009, 11:41

Спасибо большое ;)

Автор: logoff 23.2.2009, 17:06

Скажите а у этого модуля есть переменная как IOResult в System или DOSError в DOS?
Что бы можно было выводить сообщение об ошибке....
Спасибо!

Автор: ФедосеевПавел 23.2.2009, 17:18

Вот, что "говориться" в документации к FPC - rtl.pdf

Цитата

30.12.162     RenameFile
Synopsis:      Rename a file.
Declaration:  functionRenameFile(constOldName:String;constNewName:String):Boolean
Visibility:       default
Description:  RenameFile renames a file from OldName to NewName. The function returns True if success-
ful, False otherwise. Remark: you cannot rename across disks or partitions.
Errors:OnError, False isreturned.

Т.е. в примере из предыдущего поста volvo добавь ветку

Код


  else WriteLn('Error');

Автор: logoff 23.2.2009, 17:34

А точно результат то boolean спасибо =)