Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Удаление файла

Страницы: < 1 2 3
DimOk © (2007-10-25 16:06:00)
Добрый день всем. Возникла сложность с "программным" удалением файлов. Есть некая программа, которая читает данные из файла, после выполнения некоторых действий эта программа должна его перенести в другой каталог. (чтение данных проиходит из файла формата *.dbf)

TableDoc.SQL.Text := 'select * from ' + FileName;
try
TableDoc.Active := True;
except
ShowMessage('Файл ' + FileName + ' поврежден или имеет неизвестный формат!');
end;
if TableDoc.Active = True then begin
..........
end;
// Собственно та часть которая должна удалять файл
TableDoc.Active := False;
CopyFile(OldFile,NewFile,True);
if DeleteFile(OldFile) then begin
MessageDlg('Файла удален', mtInformation, [mbOk], 0);
end;
Файл копируется но не удаляется, пытался ставить на него разрешения типа: Всем-Всё но результат нулевой. Подскажите пожалуйсто как можно реализовать удаление файла.

DimOk (2007-10-25 16:36:00) [41]

> GetlastError знает почему файл не удаляется

Ни чего не показывает:
1. Я ей раньше не пользовался и что то не правильно сделал;
2. Возможно это Vista;
3. Возможен 1 и 2 вариант. :)

DimOk (2007-10-25 16:32:00) [42]

> надо писать 'Файло удалено'

Это для себя, для проверки..... :))

clickmaker (2007-10-25 16:30:00) [43]

> 'Файла удален'

надо писать 'Файло удалено'

Reindeer Moss Eater (2007-10-25 16:23:00) [44]
GetlastError знает почему файл не удаляется

DimOk (2007-10-25 16:12:00) [45]

> хм... TableDoc.Active:=False ни разу не гарантирует закрытие
> хэндла открытого файла...

У меня это хозяйство в цикле вертится...... и в качестве FileName передается следующий найденый файл в каталоге, надо Free делать..... :(

Palladin (2007-10-25 16:10:00) [46]
хм... TableDoc.Active:=False ни разу не гарантирует закрытие хэндла открытого файла...

Страницы: < 1 2 3

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »