Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 09.06.2013, 23:55   #1
ыыф
 
Регистрация: 23.11.2012
Сообщений: 9
Печаль Удаление файлов

Очень нужна помощь.
есть код
Код Delphi

Код:
var
filename: string;
mindate:tdatetime;
 FreeSizeGb: Extended ;
 FreeSize,
  FreeBytesAvailableToCaller,
  TotalSize : Int64;
begin
 GetDiskFreeSpaceEx(Pchar(edit2.text), FreeBytesAvailableToCaller, Totalsize, @FreeSize);
  FreeSizeGb := FreeSize / (1024*1024*1024);
  Edit4.text := FormatFloat('#,###,###,###', FreeSizeGb );
  if FreeSizeGb  <=231   then begin
   ShowMessage('Мало места на диске. Идёт очистка');
   filename:='';
   mindate:=Now;
   if FindFirst(Edit2.text+'\*.*', faAnyFile, searchResult) = 0 then
   repeat
 
     if not((searchResult.Name='.') or (searchResult.Name='..'))
        and (searchResult.time< mindate)  then begin
       mindate:=searchResult.time;
       filename:=searchResult.Name;
     end;
   until FindNext(searchResult) <> 0;
   FindClose(searchResult);
   if FileName<>'' then DeleteFile (filename);
  end;
вроде всё нормально и логично ошибок не выбивает.
запускается но не удаляет файлы.
Пробывал в DeleteFile (filename); добавлять rdit2.text+'\'+

Последний раз редактировалось artemavd; 10.06.2013 в 06:26.
ыыф вне форума Ответить с цитированием
Старый 10.06.2013, 00:42   #2
Человек_Борща
Старожил
 
Аватар для Человек_Борща
 
Регистрация: 30.12.2009
Сообщений: 11,430
По умолчанию

Код:
if FileName<>'' then DeleteFile (filename);
внутри цикла должно быть.
Человек_Борща вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Создание/изменение/удаление файлов в потоке. Мониторинг файлов в потоке. The Real Kos Общие вопросы Delphi 5 22.10.2012 23:58
Удаление файлов -Jack- Общие вопросы Delphi 8 15.07.2012 20:14
Удаление файлов Hint_reg Общие вопросы Delphi 8 15.06.2012 14:38
Удаление, файлов Vladya Помощь студентам 4 22.12.2008 22:40
Удаление файлов Amery Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 2 04.05.2008 14:46