Форум программистов, компьютерный форум, киберфорум
C++ Builder
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.85/26: Рейтинг темы: голосов - 26, средняя оценка - 4.85
hooligan82

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

27.02.2012, 21:24. Показов 5035. Ответов 10
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Программа ищет файлы и удаляет все найденные!!! Как сделать чтобы не все найденные файлы удалялись , а выборочно, т.е. в ручную выбирать те файлы которые хочешь удалить
Unit1.cpp
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
//---------------------------------------------------------------------------
 
#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; // обнуление счетчика файлов
}
//---------------------------------------------------------------------------
 Комментарий модератора 
Используйте теги форматирования кода!
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
27.02.2012, 21:24
Ответы с готовыми решениями:

Программа для поиска и удаления файлов определенного формата
Доброго времени суток, столкнулся с задачей на работе, не срочной и немного не моего профиля но хотелось бы с ней справится, как создать...

Программа для удаления файлов с определенным расширением
Недавно захотел написать программу для очистки файлов определенного расширения из папок. Так как изучаю C++ недолго и сам, нашел для себя...

Программа для удаления файлов
Здраствуйте уважаемые форумчане! Подскажите программу..... Ситуация такая Нужно что бы в запланированное время с папка удалялись...

10
 Аватар для cpp_developer
20124 / 5691 / 417
Регистрация: 09.04.2010
Сообщений: 22,546
Записей в блоге: 1
28.02.2012, 00:27
Про удаление файлов по маске на форуме есть много, да и обсуждалось совсем недавно.
0
 Аватар для Sergey-K
238 / 229 / 58
Регистрация: 27.10.2011
Сообщений: 249
28.02.2012, 00:59
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
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:\\");
}
//---------------------------------------------------------------------------
1
 Аватар для cpp_developer
20124 / 5691 / 417
Регистрация: 09.04.2010
Сообщений: 22,546
Записей в блоге: 1
28.02.2012, 01:04
hooligan82, а вообще то, если
в ручную выбирать те файлы которые хочешь удалить
- заносите найденные файлы в список , ListBox, например, или FileListBox, который вобче позволит обойтись без лишних телодвижений, и удаляйте при клике на соответствующей строке списка.
1
hooligan82
28.02.2012, 08:28
Спасибо, все теперь работает!!
 Аватар для niceonehere
13 / 13 / 0
Регистрация: 14.04.2012
Сообщений: 158
22.05.2012, 14:34
расскажите плз что за

Цитата Сообщение от Sergey-K Посмотреть сообщение
if((sr.Name != ".") && (sr.Name != ".."))
1 точка и 2 точки откуда берутся и что значат

и с чем их кушать если захочется
0
Эксперт С++
 Аватар для Avazart
8484 / 6151 / 615
Регистрация: 10.12.2010
Сообщений: 28,683
Записей в блоге: 30
22.05.2012, 15:33
Это дИбэлизм новых Builder -ов при запуске проекта с IDE при определении/поиске путей добавляется эти точки(текущая папка и на уровень выше), если запускать exe проекта то их нет.
1
 Аватар для niceonehere
13 / 13 / 0
Регистрация: 14.04.2012
Сообщений: 158
22.05.2012, 20:17
хм у меня в экзешниках есть ну да ладно главное ясно что это спасибо
0
Эксперт С++
 Аватар для Avazart
8484 / 6151 / 615
Регистрация: 10.12.2010
Сообщений: 28,683
Записей в блоге: 30
24.05.2012, 16:03
Вот я писал когда то, что бы чистить файлы проектов Builder-a, правда там (AlphaScins компоненты + и код неособо, но возможно для примера сгодится...)
Вложения
Тип файла: rar Cleaner.rar (1.25 Мб, 107 просмотров)
2
1 / 1 / 4
Регистрация: 24.10.2014
Сообщений: 200
21.04.2017, 06:20
А какую, тогда версию Builder использовали, если не секрет? Тоже похожую программу делаю, пытался запустить проект с альфаконтролс, выдавало 4 одинаковые строчки ошибки:

[BCC32 Error] Sconst.hpp(547): E2040 Declaration terminated incorrectly
[BCC32 Error] Sconst.hpp(548): E2040 Declaration terminated incorrectly
[BCC32 Error] Sconst.hpp(549): E2040 Declaration terminated incorrectly
[BCC32 Error] Sconst.hpp(550): E2040 Declaration terminated incorrectly

C++
1
2
3
4
static const ShortInt BS_SPLITBUTTON = 0xc;
static const ShortInt BS_DEFSPLITBUTTON = 0xd;
static const ShortInt BS_COMMANDLINK = 0xe;
static const ShortInt BS_DEFCOMMANDLINK = 0xf;
0
Эксперт С++
 Аватар для Avazart
8484 / 6151 / 615
Регистрация: 10.12.2010
Сообщений: 28,683
Записей в блоге: 30
21.04.2017, 14:28
ITALIANO, Честно говоря не помню, кажется Rad Studio 2009. И да туда втащил по глупости альфу.
В обще там довольно корявый код. Советую не пытаться тупо копировать.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
21.04.2017, 14:28
Помогаю со студенческими работами здесь

Программа для удаления файлов
Добрый вечер форумчане. Нужна программка обнаруживающая и удаляющая из папки С:/Windows/Inf/ два файла: ...

Программа для отслеживания удаления файлов
Всем добрый день, случилось что кто то повадился удалять или переносить папки, с выделенной шары на сервере. Ограничить доступ им нельзя....

Программа для блокировки удаления файлов с флешки
Честно говоря не знаю, правильно ли выбрал раздел, но он касается и флешек и программ под Windows. В общем проблема такова: У меня...

Программа для удаления защищённых файлов с диска
Есть ли программа для удаления защищённых файлов с диска? Очень надо!!!:help::help::help:

Программа для автоматического удаления файлов из обменника по расписанию
Здравствуйте! Помогите пожалуйста с программой, которая будет автоматически по расписанию удалять файлы из обменника ( либо по указанному...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
11
Ответ Создать тему
Новые блоги и статьи
http://iceja.net/ математические сервисы
iceja 20.01.2026
Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .
http://iceja.net/ сервер решения полиномов
iceja 18.01.2026
Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .
Расчёт переходных процессов в цепи постоянного тока
igorrr37 16.01.2026
/ * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит переходные токи и напряжения на элементах схемы. . . .
Восстановить юзерскрипты Greasemonkey из бэкапа браузера
damix 15.01.2026
Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Сукцессия микоризы: основная теория в виде двух уравнений.
anaschu 11.01.2026
https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/
WordPad для Windows 11
Jel 10.01.2026
WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .
Classic Notepad for Windows 11
Jel 10.01.2026
Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .
Почему дизайн решает?
Neotwalker 09.01.2026
В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru