Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Получение списка директорий по заданному пути 
V
    Опции темы
InfMag
Дата 27.1.2006, 12:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


…
***


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

Репутация: нет
Всего: 4
Мне нужно получить список папок по заданному пути, допустим забить его в листбокс.
Если путь будет: C:\ то список будет примерно таким:
Код

Vasya
Documents And Settings
Windows
Folder

И т.п.
Ну или взять: C:\Vasya там будет примерно:
Код

Folder1
Folder2
Folder of Vasya


Заранее спасибо! smile
PM   Вверх
Rennigth
Дата 27.1.2006, 12:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 49
Всего: 76
FindFirst FindNext


--------------------
(* Honesta mors turpi vita potior *)
PM MAIL ICQ   Вверх
~FoX~
Дата 27.1.2006, 12:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


НЕ рыжий!!!
****


Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 13
Всего: 68
Юзаем поиск по форуму или качаем ДРКБ - милион раз тема поднималась...


--------------------
user posted image
…множественность никогда не следует полагать без необходимости…
PM MAIL WWW ICQ Jabber   Вверх
InfMag
Дата 27.1.2006, 12:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


…
***


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

Репутация: нет
Всего: 4
~FoX~
Сорри, а ДРКБ это что?
Скажи как енто грамотно пишется, чтоб я в поиске нормально смог откопать.
PM   Вверх
Snowy
Дата 27.1.2006, 12:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484
Подними глазки наверх страницы и прочитай правила.
Там все написано.
Цитата

90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
PM MAIL   Вверх
InfMag
Дата 27.1.2006, 12:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


…
***


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

Репутация: нет
Всего: 4
Rennigth
Чо-то я не понимаю как этим пользоваться:
Код

procedure TMainForm.Button3Click(Sender: TObject);
var rec:TSearchRec;
begin
  FindFirst('C:\', 0, rec);
  FindNext(rec);
end;

Добавлено @ 12:41
Snowy
Сорри за трипер smile

Так, уже прогресс есть smile

FindFirst('C:\', faDirectory, rec);
FindNext(rec);

Тогда поюзаю ДРКБ ;)
PM   Вверх
Rennigth
Дата 27.1.2006, 12:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 49
Всего: 76
эх, что-то вроде:
Код

function GetDirs(const ADir: string): TStrings;
var
  lSR: TSearchRec;
  lDir, lTmp: string;
begin
  Result := TStringList.Create;
  if DirectoryExists(ADir) then
  begin
    lDir := IncludeTrailingPathDelimiter(ADir) + '*.*';
    if (FindFirst(lDir, faAnyFile, lSR) = 0) then
    begin
      try
        repeat
          if (lSR.Name <> '.') and (lSR.Name <> '..') then
          begin
            lTmp := ADir + lSR.Name;
            if DirectoryExists(lTmp) then
              Result.Add(lTmp);
          end;
        until FindNext(lSR) <> 0;
      finally
        FindClose(lSR);
      end;
    end;
  end;
end;




--------------------
(* Honesta mors turpi vita potior *)
PM MAIL ICQ   Вверх
Romikgy
Дата 27.1.2006, 15:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Любитель-программер
****


Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 26
Всего: 146
Эх и я напишу smile
Код

procedure TForm1.Button1Click(Sender: TObject);
var str:string;
  i:longint;
begin
 str:='c:\';
 ListBox1.Clear;
 SendMessage(ListBox1.Handle,LB_DIR,DDL_DIRECTORY    ,
 Longint(Pchar(str+'*.*')));
 for i:=ListBox1.Count-1 downto 0 do
 if (AnsiPos('[',ListBox1.Items[i])=1) and (AnsiPos(']',ListBox1.Items[i])=Length(ListBox1.Items[i]))
  then
   ListBox1.Items[i]:=MidStr(ListBox1.Items[i],2,
   length(ListBox1.Items[i])-2)
   else ListBox1.Items.Delete(i);
end;



--------------------
Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности. 
smile
PM   Вверх
InfMag
Дата 30.1.2006, 15:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


…
***


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

Репутация: нет
Всего: 4
Всем большое спасибо smile
PM   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0506 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.