[Derrik70]

Всем привет! У меня такой вопрос. Как изменить название папки на то, которое я написал в LabeledEdit1.Text?

Структура программы выглядит так:

/Папка с исполняемым файлом/done/defalt

А нужно сделать, что бы default менялось на указанное имя, которое я написал в LabeledEdit1.Text

Код:

procedure TForm8.BitBtn1Click(Sender: TObject);
var a:string;
begin
a:=LabeledEdit1.Text; // вводим название папки
RenameFile('done/default','done/a'); // изменяем название папки в директории на то, которые мы написали в LabeledEdit1.Text
end;

123.png

[Derrik70]

Код:

a:=LabeledEdit1.Text; // вводим название папки
RenameFile('done/default', a); // изменяем название папки в директории на то, которые мы написали в LabeledEdit1.Text

Написал вот так, но переименованная папка появляется в корне директории программы

[NumLock]

Код:

  if not SetCurrentDir('done') then RaiseLastOSError;
  if not RenameFile('defalt', 'default') then RaiseLastOSError;

сработает 1 раз на запуск программы, потому что current directory изменится. чтобы работало несколько раз на запуск можно вертать current directory взад, либо использовать абсолютные пути.

[Derrik70]

NumLock, Спасибо!