[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