Как бороться с таким идиотизмом???

← →
Genie™ (2005-05-28 18:24) [0]

Пытаюсь переименовать папку с файлами следующим образом:

RenameFile(CurrentDir + "\Documents\Шаблоны\" + ComboBox.Items[ComboBox.ItemIndex], CurrentDir + "\Documents\Шаблоны\" + Edit.Text);,

где CurrentDir - путь приложения, определённый при FormCreate функцией GetCurrentDir
ComboBox.Items[ComboBox.ItemIndex] - старое имя папки
Edit.Text - новое имя

Переименование не осуществляется. НО! Если либо удалить файлы из неё, либо переименовать папку "Шаблоны" в любую другую, то всё работает!!!

← →
Cobalt © (2005-05-28 19:10) [1]

Суть проблемы не раскрыта.
А такие процедуры для удобства отладки рекомендую вызывать
RenameFile(s1,s2);

← →
VMcL © (2005-05-28 19:18) [2]

>>Genie™ (28.05.05 18:24)

if not RenameFile(...) then RaiseLastOSError;

Перед переименованием обязательно надо удалить существующий файл с таким же именем.

Procedure TDBSaver.Execute; Begin try if FileExists( Main_Telecontrol_Components_Container ) then begin if FileExists( Backup_Telecontrol_Components_Container ) then DeleteFile( Backup_Telecontrol_Components_Container); RenameFile( Main_Telecontrol_Components_Container, Backup_Telecontrol_Components_Container ); end; If Assigned(Container) Then Container.CreateDCFile( Main_Telecontrol_Components_Container ); except on E:Exception do ShowException("Execute", ClassName, E); end end;

Как бороться с таким идиотизмом??? Найти похожие ветки