Чистка флэшки

[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])

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