[ferget]

Код:

if(sear.Name!="тут имя файла")
{
   DeleteFile(Path+"\\"+sear.Name);
   dt = Now();// формат даты
   memo->Lines->Add(DateToStr(dt) +" " + TimeToStr(dt) +" " + " - "+"Удален ярлык :    "+Path+sear.Name+", размер: " +IntToStr(sear.Size)+" байт");
}

[ddv122]

ferget, не работает этот код

[ferget]

не работает этот код »

не работает - это как

[ddv122]

ferget, а хотя стойте, работает, извиняюсь что то я намудрил, а как с отчёта убрать?

[ferget]

а если так

Код:

if(sear.Name == "тут имя файла") continue;

[ddv122]

Код:

   AnsiString disk = Edit1->Text;
    TSearchRec sear;
    Ini2->ReadSection( "ext", ToExt );
    for ( int i = ToExt->Count - 1; i >= 0; i-- ) {
        if ( ! FindFirst( disk + ToExt->Strings[i], faAnyFile, sear ) ) {
            do {
           for ( int k = NoDel->Count - 1; k >= 0; k-- )
              if(sear.Name!=disk + NoDel->Strings[k])
                DeleteFile( disk + "\\" + sear.Name );
                dt = Now( );
                Log->Lines->Add( DateToStr( dt ) + " " + TimeToStr( dt ) + " " + " - " + "Óäàë¸í ÿðëûê: " + sear.Name + ", Ðàçìåð: " + IntToStr( sear.Size ) + " Áàéò" );
            } while ( ! FindNext( sear ) );
        }
        FindClose( sear );
    }

А так правильно будет?со списком?

[ferget]

как с отчёта убрать »

фигурные скобки

Код:

if(sear.Name!=disk + NoDel->Strings[i])
{
                DeleteFile( disk + "\\" + sear.Name );
                dt = Now( );
                Log->Lines->Add( DateToStr( dt ) + " " + TimeToStr( dt ) + " " + " - " + "Óäàë¸í ÿðëûê: " +   sear.Name + ", Ðàçìåð: " + IntToStr( sear.Size ) + " Áàéò" );
}

А так правильно будет?со списком? »

это зависит от того какой текст в sear.Name

[ddv122]

ну как бы в ToExt - расширения для удаления (чёрный список) к примеру *.mp3
NoDel - исключения - 122.mp3
Но всё равно что то не так...
Удаляет файлы с NoDel

фигурные скобки »

Тогда в отчёте 2 строки получает но с другими файлами

[ferget]

какой текст в sear.Name, только имя файла или полный путь?

[ddv122]

Код:

if(sear.Name!=disk + NoDel->Strings[k])

Полный путь...