VPF::Обход дерева каталогов на C++ Builder

zone51

Дата 8.4.2008, 21:53 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 370
Регистрация: 17.2.2006

Репутация: нет
Всего: 1

Здравствуйте товарищи. У меня такая задача. Нужно организовать обход каталога возможно с подкаталогами.
В этих каталогах находятся медиа файлы. Информация о каждом файле хранится в базе данных. В этой же базе хранится когда и в какое время каждй файл должен быть проигран на мониторе. У меня вопрос приведите пожалуйста пример обхода каталогов для этой цели. Сам использую С++ билдер 6.

Спасибо большое

--------------------

The truth is out there

Dmi3ev

Дата 8.4.2008, 23:16 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1698
Регистрация: 28.11.2007

Репутация: 16
Всего: 41

поиск в каталоге, чтоли?

Добавлено через 6 минут и 53 секунды
приведу пример клинера, не сам писал, поэтому не ручаюсь, но, на первый взгляд по каталогам бегает)))

Код


#include <vcl.h>
#pragma hdrstop

#include "ClearMain.h"



#pragma package(smart_init)
#pragma resource "*.dfm"

TMainForm *MainForm;

__fastcall TMainForm::TMainForm(TComponent* Owner)
    : TForm(Owner)
{
}

#include <FileCtrl.hpp> // для доступа к SelectDirectory

AnsiString aDirectory; // каталог, который выбрал пользователь
                      //  (в котором находятся проекты C++Builder)

AnsiString cDir;      // текущий каталог
AnsiString FileExt;   // расширение файла

int n = 0;            // количество удаленных файлов

// Щелчок на кнопке Обзор (выбор каталога)
void __fastcall TMainForm::Button1Click(TObject *Sender)
{
    if ( SelectDirectory("Выберите каталог","", aDirectory))
    {
        // диалог Выбор файла завершен щелчком на OK
        Label3->Caption = aDirectory;
        Button2->Enabled = true; // теперь кнопка Выполнить доступна
    };
}

// удаляет ненужные файлы из текущего каталога и его подкаталогов
void __fastcall Clear(void)
{

   TSearchRec SearchRec; // информация о файле или каталоге

   cDir = GetCurrentDir()+"\\";

   if ( FindFirst("*.*", faArchive,SearchRec) == 0)
       do {
            // проверим расширение файла
            int p = SearchRec.Name.Pos(".");
            FileExt = SearchRec.Name.SubString(p+1,MAX_PATH);
            if ( ( FileExt[1] == '~') || ( FileExt == "obj" ) ||
                 ( FileExt == "tds" ) )
            {
                  MainForm->Memo1->Lines->Add(cDir+SearchRec.Name);
                  DeleteFile(SearchRec.Name);
                  n++;
            }
        }
        while ( FindNext(SearchRec) == 0);

       // обработка подкаталогов текущего каталога
       if ( FindFirst("*", faDirectory, SearchRec) == 0)
          do
              if ((SearchRec.Attr & faDirectory) == SearchRec.Attr )
              {
                    // каталоги ".." и "." тоже каталоги,
                    // но в них входить не надо !!!
                    if (( SearchRec.Name != "." ) && (SearchRec.Name != ".."))
                    {
                         ChDir(SearchRec.Name); // войти в подкаталог
                         Clear();               // очистить каталог
                         ChDir("..");           // выйти из каталога

                    };
               }
          while ( FindNext(SearchRec) == 0 );
}

// щелчок на кнопке Выполнить
void __fastcall TMainForm::Button2Click(TObject *Sender)
{
    Memo1->Clear();       // очистить поле Memo1
    ChDir(aDirectory);    // войти в каталог, который выбрал пользователь

    Clear();              // очистить текущий каталог и его подкаталоги

    Memo1->Lines->Add("");
    if (n)
        Memo1->Lines->Add("Удалено файлов: " + IntToStr(n));
     else
        Memo1->Lines->Add("В указанном каталоге нет файлов, которые надо удалить.");
}

надеюсь, поможет)))

--------------------

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| C++ Builder \| Следующая тема »