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

Вниз

Не удаляется файл при поиске   Найти похожие ветки 

 
Skif   (2003-07-23 06:02) [0]

Доброе время суток всем. Вопрос в следующем - есть процедура

procedure TfmMain.GetFileSize2(FileName: string);
var
SRec: TSearchRec;
begin
FindFirst(FileName, faAnyFile, SRec);
if SRec.Size = 0 then DeleteFile(SRec.Name);
while FindNext(SRec) = 0 do
if SRec.Size = 0 then DeleteFile(SRec.Name);
FindClose(SRec);
end;


Нулевые файлы она находит, но не УДАЛЯЕТ!!! Вопрос почему?


 
Bosh ©   (2003-07-23 06:24) [1]

а ты проверь что возращает DeleteFile, если ошибку по
GetLastError и погляди что там


 
andrey_pst ©   (2003-07-23 06:54) [2]

// попробуй так:
procedure TfmMain.GetFileSize2(FileName: string);
var
SRec: TSearchRec;
begin
FindFirst(FileName, faAnyFile, SRec);
if SRec.Size = 0 then
begin
if (SRec.Attr and faArchive) = faArchive then
FileSetAttr(SRec.Name, faArchive);
DeleteFile(SRec.Name);
end;
while FindNext(SRec) = 0 do
begin
if SRec.Size = 0 then
if (SRec.Attr and faArchive) = faArchive then
FileSetAttr(SRec.Name, faArchive);
DeleteFile(SRec.Name);
end;
FindClose(SRec);
end;


 
Skif   (2003-07-23 14:19) [3]

Прошу прощения. Как говориться, все генниальное просто. Нужно было просто "DeleteFile(путь к файлу + SRec.Name);"



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

Текущий архив: 2003.08.07;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.018 c
14-20755
Кот Бегемот
2003-07-18 13:54
2003.08.07
Вот последнее время меня воротит от женщин :(


1-20578
Verg
2003-07-23 13:21
2003.08.07
Целочисленное деление с округлением


8-20634
Buggy
2003-04-14 20:41
2003.08.07
Работа с MP3


1-20526
AlexDBases
2003-07-26 12:15
2003.08.07
О RichEdit


1-20481
Yuraz
2003-07-25 10:24
2003.08.07
Мастера, помогите, почему у меня в цикле не