Показать файлы из папки

@heroii2009 · Регистрация: 13.03.2012

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

Помогите, мне нужно вывести файл в С++ в окошко какого-то компонента типа FileListBox. Только адреса у меня в таком формате C:\Windows\explorer.exe и храняться в Memo1->Lines.

@Santam · 13.03.2012, 19:05

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

Помогите, мне нужно вывести файл в С++ в окошко какого-то компонента типа FileListBox. Только адреса у меня в таком формате C:\Windows\explorer.exe и храняться в Memo1->Lines.

адресс в билдере пишетса вроде так:
C:\\Windows\\explorer.exe

@Sergey-K · 13.03.2012, 19:13

C++
1
FileListBox1->ApplyFilePath(Memo1->Lines->Strings[0]);

Или

C++
1
FileListBox1->ApplyFilePath(Memo1->SelText);

@heroii2009 · 13.03.2012, 19:29 **[ТС]**

Сообщение от Sergey-K

C++
1
FileListBox1->ApplyFilePath(Memo1->Lines->Strings[0]);

Или

C++
1
FileListBox1->ApplyFilePath(Memo1->SelText);

чет не работает. в FileListBox как были файлы из моей папки в которой проэкт так и осталось. в параметрах надо что-то менять? Типа маску и тд...
Проэкт откомпилировал и тд... все ок
FileListBox для него надо какие-то параметры менять ??

@Sergey-K · 13.03.2012, 19:40

У меня работает:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
  Memo1->Lines->Clear();
  Memo1->Lines->Add("C:\\Windows\\explorer.exe");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  FileListBox1->ApplyFilePath(Memo1->Lines->Strings[0]);
}
//---------------------------------------------------------------------------

@heroii2009 · 13.03.2012, 20:10 **[ТС]**

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

чет не работает. в FileListBox как были файлы из моей папки в которой проэкт так и осталось. в параметрах надо что-то менять? Типа маску и тд...
Проэкт откомпилировал и тд... все ок
FileListBox для него надо какие-то параметры менять ??

Сообщение от Sergey-K

У меня работает:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
  Memo1->Lines->Clear();
  Memo1->Lines->Add("C:\\Windows\\explorer.exe");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  FileListBox1->ApplyFilePath(Memo1->Lines->Strings[0]);
}
//---------------------------------------------------------------------------

Протестил, у меня так тоже работает... хм.. а вот вопрос, выводит всю папку Windows, а можно только один файл explorer??

Добавлено через 7 минут

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
#include <conio.h>
#include <vcl.h>
#pragma hdrstop
#include <FileCtrl.hpp>
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
#include <windows.h>
 #include <shellapi.h>
TForm1 *Form1;
int h = 1;
 
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 void ListFiles(AnsiString path, TStrings* List)
{
// Ýòà ïðîöåäóðà âûâîäèò ñïèñîê ôàéëîâ è âûçûâàåò
// ñàìó ñåáÿ äëÿ âñåõ êàòàëîãîâ
TSearchRec sr;
if (FindFirst(path+"*.*",  faAnyFile, sr) == 0)
{
 
  if(h == 1)
  {
   do
     {
         if (sr.Attr &  faDirectory)
          {
              if (sr.Name!=".")
              if  (sr.Name!="..")
              {
                  ListFiles(path+sr.Name+"\\",List);// Ðåêóðñèâíûé  âûçîâ
              }
          }
          else
          {
           AnsiString  Ext=ExtractFileExt(sr.Name).UpperCase();
 
           if  (Ext=="."+Form1->Edit3->Text)
           List->Add(path+sr.Name);
          }
     }
     while  (FindNext(sr) ==  0);
     }
     FindClose(sr);
}
    Application->ProcessMessages();
}
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
h = 1;
ListFiles(Edit2->Text,Memo1->Lines);
if(Edit2->Text.IsEmpty())
   {
        ShowMessage("Ó âàñ ïóñòîå ïîëå");
        return;
   }
 
 
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{
exit(10);        
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
 
 AnsiString way = "c:\\";
if(SelectDirectory("Âûáåðèòå ïàïêó â êîòîðîé èñêòü","",way))
  Edit2->Text = way;
  }
//---------------------------------------------------------------------------
 
 
 
 
 
 
void __fastcall TForm1::FileListBox1DblClick(TObject *Sender)
{
ShellExecute (0, "îòêðûòûé", FileListBox1-> FileName.c_str (), NULL, NULL, SW_SHOW) ;
}
//---------------------------------------------------------------------------
 
 
 
 
 
 
void __fastcall TForm1::Button4Click(TObject *Sender)
{
 h = 0;
 
 
 
 }
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button5Click(TObject *Sender)
{
h = 1;
ListFiles(Edit2->Text,Memo1->Lines);
 
}
//---------------------------------------------------------------------------
 
 
void __fastcall TForm1::FileListBox1Change(TObject *Sender)
{
ShellExecute (0, "îòêðûòûé", FileListBox1-> FileName.c_str (), NULL, NULL, SW_SHOW) ;
}
//---------------------------------------------------------------------------
 
 
void __fastcall TForm1::Button7Click(TObject *Sender)
{
Memo1->Lines->Clear();
}
//---------------------------------------------------------------------------

Добавлено через 15 минут
Все заработало! Спасибо. Только можете подсказать как сделать что б выводило не полностью папку где лежит тот или иной файл, а только сам файл ?

@DefineTrueFalse · 13.03.2012, 20:35

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

Только можете подсказать как сделать что б выводило не полностью папку где лежит тот или иной файл, а только сам файл ?

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

C++
1
if (FindFirst(path+"*.*", faAnyFile, sr) == 0)

"Истина где-то рядом".

@heroii2009 · 13.03.2012, 20:53 **[ТС]**

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

"Истина где-то рядом".

Ругаеться на path мол "E2451 Undefined symbol 'path'"
"E2451 Undefined symbol 'sr'"

@Sergey-K · 13.03.2012, 22:27

Зачем выводить один файл в FileListBox? Проще добавить в ListBox:

C++
1
2
AnsiString Path = "C:\\Windows\\explorer.exe";
ListBox1->Items->Add(ExtractFileName(Path));

Новые блоги и статьи Все статьи Все блоги /
Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а привычная функция main(). . .	моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом	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 / * Дана цепь(не выше 3-го порядка) постоянного тока с элементами 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/

@heroii2009 16 / 6 / 3 Регистрация: 13.03.2012 Сообщений: 196

	Показать файлы из папки 13.03.2012, 18:47. Показов 1482. Ответов 8 Метки нет (Все метки) Помогите, мне нужно вывести файл в С++ в окошко какого-то компонента типа FileListBox. Только адреса у меня в таком формате C:\Windows\explorer.exe и храняться в Memo1->Lines. 0