Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > C++ Builder > Поиск папок


Автор: popapo 18.8.2009, 13:14
Смысл - в папке "lang" найти все папки и потом найти в каждой папке *.dll

Смотрел справку по FindNext, но мне не понятно как ей пользоваться и получить список файлов


  
Код

TSearchRec sr;
  int iAttributes = 0;
  StringGrid1->RowCount = 1;
  iAttributes |= faReadOnly * CheckBox1->Checked;
  iAttributes |= faHidden * CheckBox2->Checked;
  iAttributes |= faSysFile * CheckBox3->Checked;
  iAttributes |= faVolumeID * CheckBox4->Checked;
  iAttributes |= faDirectory * CheckBox5->Checked;
  iAttributes |= faArchive * CheckBox6->Checked;
  iAttributes |= faAnyFile * CheckBox7->Checked;
  StringGrid1->RowCount = 0;
  if (FindFirst(Edit1->Text, iAttributes, sr) == 0)
  {
    do
    {
      if ((sr.Attr & iAttributes) == sr.Attr)
      {
        StringGrid1->RowCount = StringGrid1->RowCount + 1;
        StringGrid1->Cells[1][StringGrid1->RowCount-1] = sr.Name;
        StringGrid1->Cells[2][StringGrid1->RowCount-1] = IntToStr(sr.Size);
      }
    } while (FindNext(sr) == 0);
    FindClose(sr);
  }



Подскажите пожалуста пример.

Автор: Anikmar 18.8.2009, 15:52
Кусок рабочего кода, лишнее поубирайте, смысл думаю, понятен
Код

//---------------------------------------------------------------------------
/*
    Создает список из элементов каталога в поле Root и маской *.*
    Для каждого каталога из списка вызывает аналогичную функцию
    pProcess - Объект индикатора процесса
*/
void TMAN_DirectoryItemList::Reload(TMAN_ProgressStatObject *pProcess)
{
    TSearchRec sr;
    int iAttributes = 0;
    int Count;
    TMAN_DirectoryItem *NewItem;

    iAttributes |= faReadOnly;
    iAttributes |= faHidden;
    iAttributes |= faSysFile;
    iAttributes |= faDirectory;
    iAttributes |= faArchive;
    iAttributes |= faAnyFile;

    Clear();
    Application->ProcessMessages();
    Count = 0;
    if (FindFirst(Root+ "*.*", iAttributes, sr) == 0)
    {
        do
        {
            if (pProcess!= NULL)
            {
                if (pProcess->IsStop())
                {
                    Clear();
                    break;
                }
            }
            if (Count++ > 1000)
            {
                // Для исключения подвисания прогресса на больших списках файлов
                Application->ProcessMessages();
                Count = 1000;
            }
            if (sr.Attr & faDirectory)
            {
                if ((sr.Name == ".")||(sr.Name == "..")) continue;
                // Добавляем каталог
                NewItem = new TMAN_DirectoryItem(this,Root);
                NewItem->Name = sr.Name;
                NewItem->Type = 10;
                NewItem->Reload(pProcess);
                ColvoFolders++;
                TotalColvoFolders++;
                TotalColvoFiles+=NewItem->ColvoFiles;
                TotalColvoFolders+=NewItem->ColvoFolders;
                TotalSize+=NewItem->Size;
                if (pProcess!= NULL)
                {
                    pProcess->IncFolder(1);
                    pProcess->IncFilesSize(sr.Size);
                }
            }
            else
            {
                // Добавляем файл
                NewItem = new TMAN_DirectoryItem(this,Root);
                NewItem->Name = sr.Name;
                NewItem->Type = 20;
                NewItem->Size = sr.Size;
                ColvoFiles++;
                TotalColvoFiles++;
                Size+=sr.Size;
                TotalSize+=sr.Size;
                if (pProcess!= NULL)
                {
                    pProcess->IncFile(1);
                    pProcess->IncFilesSize(sr.Size);
                }
            }
            pvItems->Add(NewItem);
        } while (FindNext(sr) == 0);
        FindClose(sr);
    }
}

Автор: popapo 19.8.2009, 13:21
А можно попроще,
if (sr.Attr & faDirectory) - это если найдена директория?
А нельзя потом просто найденую директорию записать в String без каких либо сложных манипуляций.  smile 

Автор: Anikmar 19.8.2009, 17:03
Цитата(popapo @  19.8.2009,  13:21 Найти цитируемый пост)
if (sr.Attr & faDirectory) - это если найдена директория?

Именно


Цитата(popapo @  19.8.2009,  13:21 Найти цитируемый пост)
А нельзя потом просто найденую директорию записать в String без каких либо сложных манипуляций.

Я выдрал пример из моего рабочего класса - построение дерева каталогов по всему диску.
Естественно после того как определено, что осередная запись это директория со структурой TSearchRec можно делать все что в душе угодно - записать ее в массив и т.п.

Если убрать из моего примера все лишнее то останется что-то такое:
Код


void Reload(void)
{
    TSearchRec sr;
    int iAttributes = 0;

    iAttributes |= faReadOnly;
    iAttributes |= faHidden;
    iAttributes |= faSysFile;
    iAttributes |= faDirectory;
    iAttributes |= faArchive;
    iAttributes |= faAnyFile;

    if (FindFirst("c:\\*.*", iAttributes, sr) == 0)
    {
        do
        {
            if (sr.Attr & faDirectory)
            {
//              Найдена директория
                if ((sr.Name == ".")||(sr.Name == "..")) continue;  // Обычно эти директории не нужны
                // Делаем с ней то что нам нужно - в структуре sr все ее данные
            }
            else
            {
                // Найден файл - делаем с ним то что нужно (в структуре sr данные файла)

            }
        } while (FindNext(sr) == 0);
        FindClose(sr);
    }
}

Автор: popapo 19.8.2009, 22:30
Спасибо большое! все работает.

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)