Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
doctor2l6
0 / 0 / 1
Регистрация: 20.05.2008
Сообщений: 45
#1

Функция, которая по заданному пути показывает список директорий и файлов которые находятся в ней

22.04.2010, 06:46. Просмотров 1005. Ответов 7
Метки нет (Все метки)

мне нужен объект или функция которая по заданному пути показывала список директория и файлов которые находятся в ней. Для дальнейшей работы с ними.

директорию задаю SelectDirectory, но она не работает с сетью.

может подскажете
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.04.2010, 06:46
Ответы с готовыми решениями:

Список процессов, директорий их исполняемых файлов.
Доброго времени суток, нужно в listbox занести имена процессов и адреса к...

Функция, которая показывает ASCII код символа
Какая есть функция в Delphi подобная Asc(показывает ASCII код символа) в VB?

Создать программу, которая находит папку (файл) по заданному пути и “выдаёт” о ней общие сведения
Здравствуйте форумчане, обращаюсь я к вам с нескромной просьбой, а именно, не...

Вывести на экран абсолютные пути всех файлов, которые находятся в заданном каталоге и всех его подкаталогах
Не могу вернуть масив с директориями...( Если выводить на экран в цикле, то...

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

7
xedin
24.04.2010, 10:23 #2
Если функциональность предполагается интегрировать в программу- тогда, смотри FindFirst/FindNext, а если диалогом - ShBrowseForFolder
Удачи! xedin
xedin
24.04.2010, 10:23 #3
Если функциональность предполагается интегрировать в программу- тогда, смотри FindFirst/FindNext, а если диалогом - ShBrowseForFolder
Удачи! xedin
doctor2l6
0 / 0 / 1
Регистрация: 20.05.2008
Сообщений: 45
27.04.2010, 03:00  [ТС] #4
спасибо xedin!

Юзаю FindFirst/FindNext - вроде получается

А вот - ShBrowseForFolder, я так и непонял, что это и с чем его едят.
0
xedin
27.04.2010, 03:21 #5
Эта функция (SHBrowseForFolder) вызывает стандартный виндошный диалог выбора папки. Файлы не перечисляются.
Удачи xedin
doctor2l6
0 / 0 / 1
Регистрация: 20.05.2008
Сообщений: 45
27.04.2010, 04:35  [ТС] #6
А какую библиотеку или модуль надо подключить чтобы она пахала?

в хелпе ничего нет

или его надо запустить через ShellExecute?
0
xedin
27.04.2010, 06:23 #7
shlobj.hpp (у меня Builder )
Плюс, чтоб скомпилировалось, надо установить Define
NO_WIN32_LEAN_AND_MEAN.

А вот, как в Delphi, ...
xedin
27.04.2010, 06:25 #8
Лучший ответ Сообщение было отмечено как решение

Решение

У меня работает она так:
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
void __fastcall TForm3::SpeedButton2Click(TObject *Sender)
{
   BROWSEINFO strBrowseInfo;
   char buffer[MAX_PATH];
   LPITEMIDLIST lpID;
   AnsiString S,asTemp;
 
   strBrowseInfo.hwndOwner=Application->Handle;
   strBrowseInfo.pidlRoot=NULL;
   strBrowseInfo.pszDisplayName=buffer;
   strBrowseInfo.lpszTitle='Select images folder';
   strBrowseInfo.ulFlags=BIF_RETURNONLYFSDIRS| BIF_STATUSTEXT;
   strBrowseInfo.lpfn=NULL;
   strBrowseInfo.lParam=0;
   strBrowseInfo.iImage=0;
 
   lpID=SHBrowseForFolder(&strBrowseInfo);
   if (lpID != NULL)
   {
     bool b=SHGetPathFromIDList(lpID, buffer);
     if (b)
     {
       S.sprintf('%s',buffer);
 
       if(S[S.Length()]!='\ ') S+='\ ';
       Edit2->Text=S;
     }
     Form2->Show();
     Form2->CGauge1->Visible=false;
     OpenPictureDialog1->Files->Clear();
     FindFile(S);
     Form2->Close();
     Form2->Label2->Caption='';
     MessageDlg(IntToStr(OpenPictureDialog1->Files->Count)+ ' Files found!' ,
              mtInformation, TMsgDlgButtons() << mbOK, 0);
   }
 
}
P.S. Есть такой хелп- MSDN называется
27.04.2010, 06:25
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.04.2010, 06:25

Как получить список директорий и список файлов в директории?
Очень нужно организовать поиск на диске. Как искать в нутри файла я знаю, а вот...

Вывести список исполняемых файлов, которые могут быть выполнены текущим пользователем без указания пути к ним
Помогите, пожалуйста, вывести список исполняемых файлов, которые могут быть...

Рекурсивная функция вывода всех файлов и директорий
функция ищет все файлы включая директории с набором др. файлов и директорий при...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
8
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru