{* Поиск, и удаление файлов по маске *}

Unit SEARHDEL;
Interface
Implementation
Begin
 writeln('Поиск, и удаление файлов по маске');
End.

Program pas;

Uses searhdel.pas; {* Эту строку можно удалить *}
{$I - }
Uses dos, crt; {* Вызов внешних функций *}
Var {* Объявление переменных *}
  serch_rec : searchrec;
  i         : integer;
  s         : String;
  gg        : File;
Begin
  chdir('C:123');
  FindFirst(' * . * ', AnyFile, serch_rec);
  While doserror = 0 Do
  Begin
    If serch_rec.name = '.' Then
    Begin
      FindNext(serch_rec);
      FindNext(serch_rec);
    End;
    FindNext(serch_rec);
    Writeln(fexpand(serch_rec.name));
    assign(gg, fexpand(serch_rec.name)); {* Связывание gg с файлом fexpand(serch_rec.name *}
    Erase(gg);
  End;
  Writeln('Gotovo :)');
  readln; {* Ждем подтверждения пользователя *}
End.