Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.06.14;
Скачать: CL | DM;

Вниз

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

 
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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.025 c
1-1117133145
Genie™
2005-05-26 22:45
2005.06.14
Как получить имя автора из doc файла?


14-1116941725
vecna
2005-05-24 17:35
2005.06.14
МВД собирается застраховать россиян от совершения преступлений


14-1116833798
GRAND25
2005-05-23 11:36
2005.06.14
Обсудим последнее московское дерби?


14-1116614542
_Pasha_
2005-05-20 22:42
2005.06.14
Евровидение 2005


9-1110792899
GLSceneFan
2005-03-14 12:34
2005.06.14
Важное объявление