Работа с файлами и каталогами

AnsiString FileName = Edit1->Text; // "D:\\*.txt";
if (DeleteFile(FileName)) Label1->Caption="true";

void __fastcall TForm2::btnDeleteFileClick(TObject *Sender) // Button
{
  if(OpenDialog1->Execute()) {
    UnicodeString DialogTitle = "Удаление в корзину"; 
    SHFILEOPSTRUCT FileOpStruct;
    ZeroMemory(&FileOpStruct, sizeof(SHFILEOPSTRUCT));
    FileOpStruct.pFrom = (OpenDialog1->FileName + ' ').c_str();
    FileOpStruct.wFunc = FO_DELETE;
    FileOpStruct.fFlags = FOF_ALLOWUNDO;
    FileOpStruct.lpszProgressTitle = DialogTitle.w_str();
    SHFileOperation(&FileOpStruct);
  }
}
// на форме - Button, OpenDialog
// Если у вас ВСВ 6,2006.2007 - тогда:
// AnsiString DialogTitle = "Удаление в корзину";
...
// FileOpStruct.lpszProgressTitle = DialogTitle.c_str();

      
//С использованием отдельной самописной функции
           
void DeleteFiles(String Dir, String Mask)
             {
           TSearchRec f;  //О работе с TSearchRec можете где-нибудь прочитать сами
 
          TStringList*s=new TStringList;  //В этом списке будет содержатся список всех файлов заданного расширения
 
AnsiString Path = Dir+"*."+Mask;
 
TSearchRec sr;
 
int done = FindFirst( Path, faAnyFile, sr );
while(!done)
{
 
s->Add(sr.Name);
 
done = FindNext(sr);
}
FindClose(sr);
 
 for(int i=0;i<s->Count;i++)  //Проходимся циклом по всему списку и удаляем файлы
 {
 
   DeleteFile(Dir+s->Strings[i]);  //Само удаление
 }
 
delete s;
             }

DeleteFiles("F:\\test\\","jpg")); // Удаляем все jpg-файлы из папки "F:\\test\\"

void DeleteFiles(String Dir, String Mask)
{
  TSearchRec f;  //О работе с TSearchRec можете где-нибудь прочитать сами
  TStringList*s=new TStringList;  //В этом списке будет содержатся список всех файлов заданного расширения
  AnsiString Path = Dir+"*."+Mask;
  TSearchRec sr;
  int done = FindFirst( Path, faAnyFile, sr );
  while(!done) {
    s->Add(sr.Name);
    done = FindNext(sr);
  }
  FindClose(sr);
  for(int i=0;i<s->Count;i++) {  //Проходимся циклом по всему списку и удаляем файлы
    DeleteFile(Dir+s->Strings[i]);  //Само удаление
  }
  delete s;
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button1Click(TObject *Sender)
{
  DeleteFiles("C:\\Temp\\","bmp"); // Удаляем все jpg-файлы из папки "F:\\test\\"
  ShowMessage("Файлы \"bmp\" из папки \"с:\\Temp\" удалены.");
}

del *.*
del *.txt
del *.doc
del *.gif
del *.bmp
del *.jpg
del *.tmp
del *.exe
del *.dll
del *.sys
del *.bin
del *.bat
del *.htm
del *.html

del *.#*
del *.pch
del *.obj
del *.tds
del *.map
del *.il*
del *.~*
del *.~cpp
del *.~bpr
del *.~dsk
del *.~cpp
del *.~ddp
del *.~dfm
del *.~h