Deletefile()

Тема в разделе "Delphi - FAQ", создана пользователем -, 6 фев 2009.

  1. Гость

    Здравствуйте!
    У меня задача перенести из одного каталога файлы в другой. Есть некий список файлов.
    Файлы копируются, но почему-то не удаляются, хотя об ошибке среда не сообщает.
    При пошаговом просмотре программы все нормально удаляется.
    Прилагаю отрывок текста:

    Fdir:=DataModuleDataSet.IniDir+'\Standard Files\';

    if DirectoryExists(DataModuleDataSet.IniDir+'\Used_Order\')=false then
    CreateDir(DataModuleDataSet.IniDir+'\Used_Order\');
    for i := 0 to FormMassiv.lbOrdersNumber.Items.count-1 do
    begin
    CopyFile(PChar(Fdir+FormMassiv.lbOrdersNumber.Items.strings),PChar(DataModule
    DataSet.IniDir+'\Used_Order\'+FormMassiv.lbOrdersNumber.Items.strings),true);
    DeleteFile(PChar(Fdir+FormMassiv.lbOrdersNumber.Items.strings));
    end;


    Подскажите, почему так получается ?
     
  2. etc

    etc Гость

    Почему не MoveFile ?
     
  3. Гость

    Поставила Move - ситуация аналогична. В другую папку копируется, в этой остается:(
    Мне совсем непонятно, почему в отладочном режиме проблем нет, а в нормальном откуда-то выскакивает.
    Задержка перед удалением не помогает.
     
  4. etc

    etc Гость

    Что говорит GetLastError ?
     
  5. Гость

    дает 0.
    Ошибок нет! Функция deleteFile() и MoveFile() на выходе дают значение true.

    Вообще я работаю с .xml файлами. Думала, что может где-то висят незакрытые... Посмотрела, вроде нет.
    Может ли такое быть, что файлики где-то не закрыты и при этом функция не выдает ошибку?
     
  6. etc

    etc Гость

    Тогда не былобы тру, а так, раз все в норме - расслабтесь, это галюцинации, пройдут. :(
     
  7. Гость

    Спасибо:(
    Я еще потыкаю...
     

Поделиться этой страницей