![]() |
Внимание, важное сообщение: Дорогие Друзья!
В ноябре далекого 2001 года мы решили создать сайт и форум, которые смогут помочь как начинающим, так и продвинутым пользователям разобраться в операционных системах. В 2004-2006г наш проект был одним из самых крупных ИТ ресурсов в рунете, на пике нас посещало более 300 000 человек в день! Наша документация по службам Windows и автоматической установке помогла огромному количеству пользователей и сисадминов. Мы с уверенностью можем сказать, что внесли большой вклад в развитие ИТ сообщества рунета. Но... время меняются, приоритеты тоже. И, к сожалению, пришло время сказать До встречи! После долгих дискуссий было принято решение закрыть наш проект. 1 августа форум переводится в режим Только чтение, а в начале сентября мы переведем рубильник в положение Выключен Огромное спасибо за эти 24 года, это было незабываемое приключение. Сказать спасибо и поделиться своей историей можно в данной теме. С уважением, ваш призрачный админ, BigMac... |
|
Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » C/C++ - Чистка флэшки |
|
C/C++ - Чистка флэшки
|
![]() Старожил Сообщения: 222 |
Всем привет. Мне нужно по средствам с++ builder написать программу, которая будет при подключении съемных устройств, в автоматическом режиме, удалять все файлы допустим *.mp3
Возможно ли это? |
|
Отправлено: 05:44, 18-02-2012 |
![]() Старожил Сообщения: 222
|
Профиль | Отправить PM | Цитировать |
------- Отправлено: 13:41, 27-03-2012 | #51 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Разный Сообщения: 1294
|
Профиль | Отправить PM | Цитировать путь и имя и так в ObjectName
для того, чтобы получить размер файла можно использовать вот такую функцию long getFileSize(const AnsiString &Filename) { long ret = -1; HANDLE hFile = CreateFile(Filename.c_str(), GENERIC_READ, FILE_SHARE_READ, NULL, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, NULL); if( hFile != INVALID_HANDLE_VALUE ) { ret = GetFileSize(hFile, NULL); CloseHandle(hFile); } return ret; } |
Отправлено: 14:09, 27-03-2012 | #52 |
![]() Старожил Сообщения: 222
|
Профиль | Отправить PM | Цитировать ferget, ааа нашел ошибку.
если в spisok.txt есть пустые строчки, тогда он удаляет все с корня #include <vcl.h> #include "dstring.h" #pragma hdrstop #include "Unit1.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1; bool DeleteDir(AnsiString DirName); //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TForm1::Button1Click(TObject *Sender) { AnsiString DirPath = Edit1->Text+"\\"; TStringList* ToDel = new TStringList(); ToDel->LoadFromFile("Spisok.txt"); AnsiString ObjectName; for (int i = ToDel ->Count-1; i >= 0; i--) { ObjectName = DirPath+ToDel->Strings[i]; if (DirectoryExists) { DeleteDir(ObjectName); RemoveDir (ObjectName); }else (FileExists); DeleteFile (ObjectName); } delete ToDel; } //--------------------------------------------------------------------------- bool DeleteDir(AnsiString DirName) { TSearchRec sr; if (DirName.Length()) { if (!FindFirst(DirName+"\\*.*",faAnyFile,sr)) do { if (!(sr.Name=="." || sr.Name=="..")) if (((sr.Attr & faDirectory) == faDirectory ) || (sr.Attr == faDirectory)) { FileSetAttr(DirName+"\\"+sr.Name, faDirectory ); DeleteDir(DirName+"\\"+sr.Name); RemoveDir(DirName + "\\"+sr.Name); } else { FileSetAttr(DirName+"\\"+sr.Name, 0); DeleteFile(DirName+"\\"+sr.Name); } } while (!FindNext(sr)); FindClose(sr); } RemoveDir(DirName); return true; } |
------- Отправлено: 12:44, 28-03-2012 | #53 |
![]() Старожил Сообщения: 222
|
Профиль | Отправить PM | Цитировать |
------- Последний раз редактировалось ddv122, 28-03-2012 в 13:29. Отправлено: 13:19, 28-03-2012 | #54 |
Разный Сообщения: 1294
|
Профиль | Отправить PM | Цитировать |
Отправлено: 13:39, 28-03-2012 | #55 |
![]() Старожил Сообщения: 222
|
Профиль | Отправить PM | Цитировать ferget, спасибо, только не получается у меня отчет сделать как сдесь
Цитата ddv122:
|
|
------- Отправлено: 13:51, 28-03-2012 | #56 |
Разный Сообщения: 1294
|
Профиль | Отправить PM | Цитировать что именно не получается?
|
Отправлено: 14:09, 28-03-2012 | #57 |
![]() Старожил Сообщения: 222
|
Профиль | Отправить PM | Цитировать |
------- Отправлено: 14:16, 28-03-2012 | #58 |
ИО Капитана Очевидности Сообщения: 5387
|
Профиль | Отправить PM | Цитировать Цитата ddv122:
Во-первых, это очень сложно отлаживать. Во-вторых, текст в кавычках имеет тип const char* (указатель на массив символов), и попытка "дописать" к нему целочисленное значение через плюс может привести к противоположному результату. Лучше использовать функцию Format(ИСХ_СТРОКА, ПАРАМЕТРЫ) В исходной строке вы указываете спец-символы (%d, %s и т.д.), в которые функция автоматически подставит нужные значения из списка параметров. Список параметров передаётся через макрос ARRAYOFCONST Пример использования |
|
------- Отправлено: 07:10, 29-03-2012 | #59 |
![]() Старожил Сообщения: 222
|
Профиль | Отправить PM | Цитировать AnsiString Path = Edit1->Text; TSearchRec sear; TStringList* ExtToDel= new TStringList(); TIniFile* Ini = new TIniFile(ExtractFilePath( Application->ExeName ) +"spisok.ini"); Ini->ReadSection("ext", ExtToDel); for (int i = ExtToDel ->Count-1; i >= 0; i--) { if(FindFirst(Path + ExtToDel->Strings[i], faAnyFile, sear) == 0) { do { DeleteFile(Path+"\\"+sear.Name); dt = Now();// формат даты memo->Lines->Add(DateToStr(dt) +" " + TimeToStr(dt) +" " + " - "+"Удален ярлык : "+Path+sear.Name+", размер: " +IntToStr(sear.Size)+" байт"); } while(FindNext(sear) == 0); } FindClose(sear); Допустим удаляет все *.mp3 файлы но кроме 122.mp3 |
------- Отправлено: 21:59, 24-05-2012 | #60 |
![]() |
Участник сейчас на форуме |
![]() |
Участник вне форума |
![]() |
Автор темы |
![]() |
Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
Разное - Чистка системников | stranges | Прочее железо | 22 | 14-11-2011 17:01 | |
Разное - Чистка ОС XP | inline | Microsoft Windows 2000/XP | 4 | 06-05-2011 07:11 | |
Принтер - Чистка принтера | ReAL | Прочее железо | 10 | 25-03-2011 15:31 | |
Чистка линз | crowlik | Оптические приводы | 18 | 21-04-2009 11:23 | |
Чистка рееестра | bona | Программное обеспечение Windows | 6 | 17-02-2008 05:57 |
|