[Derrik70]

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

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

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

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

Код:

1 2 3 4 5 6

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

123.png

[Derrik70]

Код:

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

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

[NumLock]

Код:

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

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

[Derrik70]

NumLock, Спасибо!