Форум: "Основная";
Текущий архив: 2003.08.07;
Скачать: [xml.tar.bz2];
ВнизНе удаляется файл при поиске Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.008 c