Программа для поиска и удаления файлов

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
 
// конструктор (пустой)
 
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
// функция формирования списка файлов по маске mask в директории dir
 
int __fastcall TForm1::ListDirItems(char *dir, char *mask)
{
  WIN32_FIND_DATA DIR={0};
  HANDLE hFile=0;
  BOOL done=TRUE;
  char dirname[128]={0};
  TCHAR LevelUp='.';
  int ItemCount=0;
  char fullpath[256]={0};
  AnsiString TempString;
 
  strcpy(dirname,dir);   // копирование строки в dirname из dir
  strcat(dirname,mask);  // добавление к строке dirname mask
                         // в результате полный путь в dirname
 
  hFile=FindFirstFile(dirname, &DIR);  // поиск первого файла подходящего под 
                                       // маску                    
 
  while(done) // выполнять пока есть файлы подходяшщие под маску
  {
    if (! (DIR.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY))  // если это не
                                                              // директория                       
    {
      if (DIR.cFileName[0] != LevelUp && DIR.cFileName[0] != 0) 
      {
        ItemCount++; 
        GlobalFiles++;  // инкрементируем счетчик найденных файлов
        strcpy(fullpath, "найден - "); 
        strcat(fullpath, dir);
        strcat(fullpath, DIR.cFileName);
        ListBox1->Items->Add(fullpath);  // добавляется в список полный путь 
                                         // к файлу 
        Edit3->Text=TempString.sprintf("%d",GlobalFiles); // выводит в 
        // текстовом поле количество найденных файлов 
      }
    }
    else // иначе (если директория)
    {
      ItemCount++;
    }
 
    done=FindNextFile(hFile, &DIR); // получение следующего файла подходящего 
                                    // под маску 
  }
  return ItemCount; // возвращает кол-во найденных файлов и каталогов
}
 
// функция удаления файлов по маске mask из директории dir
int __fastcall TForm1::DelListDirItems(char *dir, char *mask)
{
  WIN32_FIND_DATA DIR={0};
  HANDLE hFile=0;
  BOOL done=TRUE;
  char dirname[128]={0};
  TCHAR LevelUp='.';
  int ItemCount=0;
  char fullpath[256]={0};
  AnsiString TempString;
  char DelStr[256]={0};
 
  strcpy(dirname,dir);   // копирование строки в dirname из dir
  strcat(dirname,mask);  // добавление к строке dirname mask
                         // в результате полный путь в dirname
 
  hFile=FindFirstFile(dirname, &DIR); // поиск первого файла подходящего под маску
 
  while(done) // выполнять пока есть файлы подходящие под маску
  {
    if (! (DIR.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY)) // если это не
                                                             // директория 
    {
      if (DIR.cFileName[0] != LevelUp && DIR.cFileName[0] != 0) 
      {
        ItemCount++;
        GlobalFiles++;  // инкрементируем счетчик найденных файлов
        strcpy(fullpath, "удален - ");
 
        strcpy(DelStr, dir);            // 
        strcat(DelStr, DIR.cFileName);  // DelStr полное имя найденного файла
 
        if(DeleteFile(DelStr)==0) // удаление файла и если не удалось удалить
        {
          strcat(fullpath, "[ОШИБКА] - "); // формируем строку с ошибкой
        }
 
        strcat(fullpath, dir);
        strcat(fullpath, DIR.cFileName);
        ListBox1->Items->Add(fullpath); // добавляется в список полный путь  
                                        // к файлу 
        Edit3->Text=TempString.sprintf("%d",GlobalFiles); // выводит в 
        // текстовом поле количество найденных файлов 
      }
    }
    else
    {
      ItemCount++;
    }
    done=FindNextFile(hFile, &DIR); // получение следующего файла подходящего 
                                    // под маску        
  }
  return ItemCount; // возвращает кол-во найденных файлов и каталогов
 
}
 
// формирование списка файлов в директории dir по маске директории maskdir и // маске файла maskfile и действию fd
void __fastcall TForm1::ListDir(char *dir, char *maskdir, char *maskfile, int fd)
{
  WIN32_FIND_DATA DIR={0};
  HANDLE hFile=0;
  BOOL done=TRUE;
  char dirname[128]={0};
  TCHAR LevelUp='.';
  int NumberOfItems=0;
 
  strcpy(dirname,dir);
  strcat(dirname,maskdir);
 
  hFile=FindFirstFile(dirname, &DIR);
 
  while(done)
  {
    if (DIR.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY) // если это 
                                                         // директория
 
    {
      if (DIR.cFileName[0] != LevelUp) 
      {
        NodeCount++;
 
        char dirname2[256]={0};
 
        strcpy(dirname2,dir);
        strcat(dirname2,DIR.cFileName);
        strcat(dirname2, "\\");
 
        if(fd==0) // если действие сформировать список
          NumberOfItems=ListDirItems(dirname2, maskfile); // вызов функции         
                                                      // формирования списка
 
else // иначе удаление
          NumberOfItems=DelListDirItems(dirname2, maskfile); // вызов функции 
                                                             // удаления 
 
        ListDir(dirname2, maskdir, maskfile, fd);  // рекурсивный вызов для 
                                                   // директории dirname2
      }
    }
 
    done=FindNextFile(hFile, &DIR); 
  }
}
 
 
// функция обработки нажатия кнопки поиска
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  NodeCount=0; // обнуление счетчика директорий
  GlobalFiles=0; // обнуление счетчика файлов
  ListBox1->Items->Clear(); // очистка списка
 
  char Text1[128]={0};
  char Text2[128]={0};
 
  strcpy(Text1,Edit1->Text.c_str()); 
  strcpy(Text2,Edit2->Text.c_str()); // очистка текстовых полей
 
  ListDirItems(Edit1->Text.c_str(), Edit2->Text.c_str()); // обработка файлов   // в указанной директории 
  ListDir(Edit1->Text.c_str(), "*.*", Edit2->Text.c_str(), 0); // обработка // всех директорий в указанной директории
 
}
//---------------------------------------------------------------------------
 
// функция обработки нажатия кнопки удаления
void __fastcall TForm1::Button2Click(TObject *Sender)
{
  NodeCount=0; // обнуление счетчика директорий
  GlobalFiles=0; // обнуление счетчика файлов
  ListBox1->Items->Clear(); // очистка списка
 
  char Text1[128]={0};
  char Text2[128]={0};
 
  strcpy(Text1,Edit1->Text.c_str());
  strcpy(Text2,Edit2->Text.c_str());
 
  DelListDirItems(Edit1->Text.c_str(), Edit2->Text.c_str()); // удаление 
 // файлов в указанной директории
  ListDir(Edit1->Text.c_str(), "*.*", Edit2->Text.c_str(), 1); // обработка // всех директорий в указанной директории на предмет удаления файлов
}
//---------------------------------------------------------------------------
// инициализация формы
void __fastcall TForm1::FormCreate(TObject *Sender)
{
  NodeCount=0; // обнуление счетчика директорий
  GlobalFiles=0; // обнуление счетчика файлов
}
//---------------------------------------------------------------------------

void Scan(AnsiString Path)
{
  TSearchRec sr;
  if(FindFirst(Path + "*.*", faAnyFile, sr) == 0)
    {
      do
        {
          if(sr.Attr & faDirectory)
            {
              if((sr.Name != ".") && (sr.Name != ".."))
                Scan(Path + sr.Name + "\\");
            }
          else
            {
              //Здесь можно поставить фильтр - маску
              AnsiString DeleteStr = "Вы действительно хотите удалить \"" + sr.Name + "\"?";
              if(MessageBox(NULL, DeleteStr.c_str(), "Удаление файла", MB_YESNO | MB_ICONQUESTION) == mrYes)
                ShowMessage("Удаляем файл");//DeleteFile(Path + sr.Name);
            }
        }
      while(FindNext(sr) == 0);
      FindClose(sr);
    }
  Application->ProcessMessages();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  Scan("D:\\");
}
//---------------------------------------------------------------------------

static const ShortInt BS_SPLITBUTTON = 0xc;
static const ShortInt BS_DEFSPLITBUTTON = 0xd;
static const ShortInt BS_COMMANDLINK = 0xe;
static const ShortInt BS_DEFCOMMANDLINK = 0xf;