Форум: "Основная";
Текущий архив: 2005.06.14;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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;

---

← →
Defunct ©   (2005-05-28 19:40) [3]

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

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;

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2005.06.14;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.053 c