Простой файловый браузер

@DeadZone · Регистрация: 03.10.2009

Author24 — интернет-сервис помощи студентам

Добрый день.
Задание такое :
Для выбранной пользователем папки реализовать вывод на экран список файлов в данной папке. По нажатию кнопки скрывать/показывать скрытые/системный файлы.

Сделал вывод через FilesListBox. Но это думаю не правильно.
1.Через какие функции можно сделать вывод папки?
2. Каким образом скрывать/показывать системные файлы? (Как я понимаю, функции SetFileAttributes и GetFileAttributes).

Каким образом это можно реализовать?

@BRcr · 03.10.2014, 18:36

Например, вот:
Пользовательская оболочка
Файловый менеджер, какие компоненты использовать
Удаление скрытых файлов

@DeadZone · 03.10.2014, 19:46 **[ТС]**

BRcr, Больно много всего. Не могу понять в какую сторону и двигаться.

Добавлено через 49 минут
Ну вот, например открытие файлов. Как теперь делать проверку на атрибуты функциями (SetFileAttributes и GetFileAttributes) .

C++

#pragma hdrstop
 
#include "Unit1.h"
#include <FileCtrl.hpp>
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
HANDLE hFile_find;
WIN32_FIND_DATA lpffd;
void __fastcall TForm1::Button1Click(TObject *Sender)
{
SetCurrentDirectory(Edit1->Text.c_str());
 
hFile_find=FindFirstFile("*.*",&lpffd);
if (hFile_find!=INVALID_HANDLE_VALUE)
 ListBox1->Items->Append(lpffd.cFileName);
while (FindNextFile(hFile_find,&lpffd))
ListBox1->Items->Append(lpffd.cFileName);
FindClose(hFile_find);
}

@Avazart · 03.10.2014, 20:28

Сообщение от DeadZone

Не могу понять в какую сторону и двигаться.

Главное не оставаться в темной зоне )

А вообще в сторону TTreeView+TListView + FindFirst()/FindNext()

@D1973 · 04.10.2014, 08:54

Используя материалы вот этой темы придумалась такая вот штука...

*.h

C++

#ifndef Unit2H
#define Unit2H
//---------------------------------------------------------------------------
#include <System.Classes.hpp>
#include <Vcl.Controls.hpp>
#include <Vcl.StdCtrls.hpp>
#include <Vcl.Forms.hpp>
#include <Vcl.ComCtrls.hpp>
#include <Vcl.ImgList.hpp>
#include <Vcl.Grids.hpp>
#include <Vcl.Outline.hpp>
#include <Vcl.Samples.DirOutln.hpp>
//---------------------------------------------------------------------------
class TForm2 : public TForm
{
__published:    // IDE-managed Components
    TImageList *ImageList1;
    TTreeView *TreeView1;
    TStringGrid *StringGrid1;
    TCheckBox *CheckBox1;
    void __fastcall TreeView1Expanding(TObject *Sender, TTreeNode *Node, bool &AllowExpansion);
    void __fastcall FormCreate(TObject *Sender);
    void __fastcall CheckBox1Click(TObject *Sender);
private:    // User declarations
    int Attrib;
    String dir;
    void __fastcall MakeFullDirectoryTree(TTreeView *Tree, const String &Dir);
    void __fastcall EnumDirectories(String path, TTreeNode *parent, int level);
public:     // User declarations
    __fastcall TForm2(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm2 *Form2;
//---------------------------------------------------------------------------
#endif

*.cpp

C++

#include <vcl.h>
#pragma hdrstop
 
#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm2 *Form2;
 
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm2::EnumDirectories(String path, TTreeNode *parent, int level)
{
  TreeView1->Images = ImageList1;
  TTreeView *Tree = (TTreeView *)parent->TreeView;
  TTreeNode *tmp_node;
  int nfile = 0;
  int CurrentRow = 1;
  if(level == 0)
    {
      TSearchRec sr;
      if(path[path.Length()] != '\\')
        path += "\\";
      if(FindFirst(path + "*.*", Attrib, sr) == 0)
        {
          do
            {
              if((sr.Attr & faDirectory ) != 0)
                {
                  if((sr.Name == ".") || (sr.Name == ".."))
                    continue;
                  tmp_node = Tree->Items->AddChildFirst(parent, sr.Name);
                  tmp_node->ImageIndex = 0;
                  tmp_node->SelectedIndex = 0;
                  nfile++;
                  EnumDirectories(path + sr.Name, tmp_node, level + 1);
                  continue;
                }
              else
                {
                  StringGrid1->Cells[0][CurrentRow] = sr.Name;
                  StringGrid1->Cells[1][CurrentRow] = IntToStr(sr.Size);
                  StringGrid1->Cells[2][CurrentRow] = DateTimeToStr(sr.TimeStamp);
                  StringGrid1->RowCount++;
                  CurrentRow = StringGrid1->RowCount - StringGrid1->FixedRows;
                  nfile++;
                }
            }
          while(FindNext(sr) == 0);
          FindClose(sr);
        }
      Application->ProcessMessages();
    }
  if(nfile == 0 && level == 1)
    {
      tmp_node = Tree->Items->AddChild(parent, "Пусто");
      tmp_node->ImageIndex = 2;
      tmp_node->SelectedIndex = 2;
    }
}
//---------------------------------------------------------------------------
void __fastcall TForm2::MakeFullDirectoryTree(TTreeView *Tree, const String &Dir)
{
  TTreeNode *tmp_node;
  Tree->Items->Clear();
  if(!DirectoryExists(Dir))
    return;
  //Сделаем корень дерева
  Tree->Items->Add(NULL, Dir);
  tmp_node = Tree->Items->Item[0];
  tmp_node->ImageIndex = 1;
  tmp_node->SelectedIndex = 1;
  //Укороченный прогон по директории
  EnumDirectories(Dir, tmp_node, 1);
  Tree->AutoExpand = true;
  Tree->Selected = tmp_node;
  Tree->AutoExpand = true;
}
//---------------------------------------------------------------------------
void __fastcall TForm2::TreeView1Expanding(TObject *Sender, TTreeNode *Node, bool &AllowExpansion)
{
  String path = Node->Text;
  TTreeNode *tmp_node = Node;
  while(tmp_node->Parent)
    {
      tmp_node = tmp_node->Parent;
      if(tmp_node->Text[tmp_node->Text.Length()] != '\\')
        path = tmp_node->Text + "\\" + path;
      else
        path = tmp_node->Text + path;
    }
  Node -> DeleteChildren();
  StringGrid1->RowCount = 2;
  for(int i = 0; i < StringGrid1->ColCount; i++)
   StringGrid1->Cells[i][1] = "";
  EnumDirectories(path, Node, 0);
  Node -> AlphaSort();
}
//---------------------------------------------------------------------------
void __fastcall TForm2::FormCreate(TObject *Sender)
{
  dir = "c:\\";
  MakeFullDirectoryTree(TreeView1, dir);
  Attrib = faAnyFile;
  StringGrid1->Cells[0][0] = "Имя файла";
  StringGrid1->Cells[1][0] = "Размер файла";
  StringGrid1->Cells[2][0] = "Дата файла";
}
//---------------------------------------------------------------------------
void __fastcall TForm2::CheckBox1Click(TObject *Sender)
{
  if(CheckBox1->Checked) Attrib = faAnyFile;
  else Attrib = faAnyFile - faHidden;
  MakeFullDirectoryTree(TreeView1, dir);
}
//---------------------------------------------------------------------------

@DeadZone · 04.10.2014, 22:32 **[ТС]**

D1973, Спасибо. Я сделал простенько все, но все равно спасибо Вам большое.

@Yahaa · 30.12.2016, 03:04

Это все хорошо. Но как по итогу файлы-то скрыть?

@D1973 · 30.12.2016, 06:37

Yahaa, что не понятно? Код перед тобой: читай, разбирайся.

@Yahaa · 30.12.2016, 09:51

D1973, Спасибо. Я сделал простенько все, но все равно спасибо Вам большое.

в этом сообщении я кода не нашел, а в Вашем коде я нифига не понимаю.

@D1973 · 31.12.2016, 08:33

Сообщение от Yahaa

а в Вашем коде я нифига не понимаю

Это моя проблема?

Новые блоги и статьи
Книги и учебные ресурсы по C# InfoMaster 08.01.2025 Базовые учебники и руководства Одной из лучших книг для начинающих является "C# 10 и . NET 6 для начинающих" Эндрю Троелсена и Филиппа Джепикса . Книга последовательно раскрывает основные концепции. . .	Что такое NullReferenceException и как исправить? InfoMaster 08.01.2025 NullReferenceException - одно из самых распространенных исключений, с которым сталкиваются разработчики на C#. Это исключение возникает при попытке обратиться к членам объекта (методам, свойствам или. . .	Что такое Null Pointer Exception (NPE) и как это исправить? InfoMaster 08.01.2025 Null Pointer Exception (NPE) - это одно из самых распространенных исключений в Java, которое возникает при попытке использовать ссылку на объект, значение которой равно null. Это исключение относится. . .	Русский язык в консоли C++ InfoMaster 08.01.2025 При разработке программ на C++ одной из частых проблем, с которой сталкиваются русскоязычные программисты, является корректное отображение кириллицы в консольных приложениях. Эта проблема особенно. . .	Telegram бот на C# InfoMaster 08.01.2025 Разработка ботов для Telegram стала неотъемлемой частью современной экосистемы мессенджеров. C# предоставляет мощный и удобный инструментарий для создания разнообразных ботов, от простых. . .	Использование GraphQL в Go (Golang) InfoMaster 08.01.2025 Go (Golang) является одним из наиболее популярных языков программирования, используемых для создания высокопроизводительных серверных приложений. Его архитектурные особенности и встроенные. . .
Что лучше использовать при создании класса в Java: сеттеры или конструктор? Alexander-7 08.01.2025 Вопрос подробнее: На вопрос: «Когда одновременно создаются конструктор и сеттеры в классе – это нормально?» куратор уточнил: «Ваш класс может вообще не иметь сеттеров, а только конструктор и геттеры. . .	Как работать с GraphQL на TypeScript InfoMaster 08.01.2025 Введение в GraphQL и TypeScript В современной разработке веб-приложений GraphQL стал мощным инструментом для создания гибких и эффективных API. В сочетании с TypeScript, эта технология. . .	Счётчик на базе сумматоров + регистров и генератора сигналов согласования. Hrethgir 07.01.2025 Создан с целью проверки скорости асинхронной логики: ранее описанного сумматора и предополагаемых fast регистров. Регистры созданы на базе ранее описанного, предполагаемого fast триггера. То-есть. . .	Как перейти с Options API на Composition API в Vue.js BasicMan 06.01.2025 Почему переход на Composition API актуален В мире современной веб-разработки фреймворк Vue. js продолжает эволюционировать, предлагая разработчикам все более совершенные инструменты для создания. . .	Архитектура современных процессоров inter-admin 06.01.2025 Процессор (центральный процессор, ЦП) является основным вычислительным устройством компьютера, которое выполняет обработку данных и управляет работой всех остальных компонентов системы. Архитектура. . .	История создания реляционной модели баз данных, правила Кодда Programming 06.01.2025 Предпосылки создания реляционной модели В конце 1960-х годов компьютерная индустрия столкнулась с серьезными проблемами в области управления данными. Существовавшие на тот момент модели данных -. . .

Простой файловый браузер

Решение

Решение

@DeadZone 3 / 3 / 1 Регистрация: 03.10.2009 Сообщений: 157
		1
	Простой файловый браузер 03.10.2014, 18:26. Показов 2036. Ответов 9 Метки нет (Все метки) Добрый день. Задание такое : Для выбранной пользователем папки реализовать вывод на экран список файлов в данной папке. По нажатию кнопки скрывать/показывать скрытые/системный файлы. Сделал вывод через FilesListBox. Но это думаю не правильно. 1.Через какие функции можно сделать вывод папки? 2. Каким образом скрывать/показывать системные файлы? (Как я понимаю, функции SetFileAttributes и GetFileAttributes). Каким образом это можно реализовать? 0

@BRcr 4043 / 2332 / 292 Регистрация: 03.02.2011 Сообщений: 5,066 Записей в блоге: 10
	03.10.2014, 18:36	2
	Например, вот: Пользовательская оболочка Файловый менеджер, какие компоненты использовать Удаление скрытых файлов 0

@Avazart 8483 / 6150 / 615 Регистрация: 10.12.2010 Сообщений: 28,683 Записей в блоге: 30
	03.10.2014, 20:28	4
	Сообщение было отмечено DeadZone как решение Решение Сообщение от DeadZone Не могу понять в какую сторону и двигаться. Главное не оставаться в темной зоне ) А вообще в сторону TTreeView+TListView + FindFirst()/FindNext() 1

@DeadZone 3 / 3 / 1 Регистрация: 03.10.2009 Сообщений: 157
	04.10.2014, 22:32 [ТС]	6
	D1973, Спасибо. Я сделал простенько все, но все равно спасибо Вам большое. 0

@Yahaa 0 / 0 / 0 Регистрация: 26.12.2016 Сообщений: 2
	30.12.2016, 03:04	7
	Это все хорошо. Но как по итогу файлы-то скрыть? 0

@D1973 Модератор 9644 / 6251 / 2426 Регистрация: 21.01.2014 Сообщений: 26,668 Записей в блоге: 3
	30.12.2016, 06:37	8
	Yahaa, что не понятно? Код перед тобой: читай, разбирайся. 0

@Yahaa 0 / 0 / 0 Регистрация: 26.12.2016 Сообщений: 2
	30.12.2016, 09:51	9
	D1973, Спасибо. Я сделал простенько все, но все равно спасибо Вам большое. в этом сообщении я кода не нашел, а в Вашем коде я нифига не понимаю. 0

@D1973 Модератор 9644 / 6251 / 2426 Регистрация: 21.01.2014 Сообщений: 26,668 Записей в блоге: 3
	31.12.2016, 08:33	10
	Сообщение от Yahaa а в Вашем коде я нифига не понимаю Это моя проблема? 2