Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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.44 MB
Время: 0.041 c
14-1116855278
DiamondShark
2005-05-23 17:34
2005.06.14
Когда человек смеётся?


1-1117444953
54321
2005-05-30 13:22
2005.06.14
Поверх всех окон


4-1114083686
Максим
2005-04-21 15:41
2005.06.14
USB on/off


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


3-1115789288
kyn66
2005-05-11 09:28
2005.06.14
Кто реально работает с базами Access, отзовитесь...





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский