VPF::как заполучить дерево каталогов и файлов????

lastovetski

Дата 11.10.2007, 20:29 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 52
Регистрация: 11.7.2007

Репутация: нет
Всего: нет

как заполучить дерево каталогов и файлов????

EvilsInterrupt

Дата 11.10.2007, 20:39 (ссылка)

(нет голосов)

Загрузка ...

Executables research

Профиль
Группа: Завсегдатай
Сообщений: 1019
Регистрация: 14.7.2007
Где: Железнодорожный, МО, Россия

Репутация: нет
Всего: 9

lastovetski, А что с деревом будешь делать? Вывод в файл или в мемо, может тревью?

--------------------

про реверсинг, вроде чтото даже интересно

Alix

Дата 11.10.2007, 21:16 (ссылка)

(нет голосов)

Загрузка ...

L45

Профиль
Группа: Участник
Сообщений: 581
Регистрация: 4.5.2005
Где: Pskov/Spb

Репутация: 8
Всего: 23

Если тебе нужно просто пройтись по каталогом с заходом в подкаталоги, то примерно так:

Код

procedure TraverseDir(const path:string);
var sr:tSearchRec;

begin
   findfirst(path + '*.*', faAnyFile, sr);
   repeat

     // I skip non-directories, but you may not
     if (sr.Attr and faDirectory)=0 then 
       continue;

     if (sr.name='.') or (sr.name='..') then 
       continue;

     traversedir(path + sr.name + pathdelim);
   until (findnext(sr)<>0);
end;

--------------------

Знание только тогда знание, когда оно приобретено усилиями своей мысли, а не памятью (с) Л. Толстой
High tech. Low live. (с) Gardner Dozois

lastovetski

Дата 12.10.2007, 00:15 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 52
Регистрация: 11.7.2007

Репутация: нет
Всего: нет

Если честно, нужно загнать в массив полные адреса всех файлов лежащих в d:\bla bla bla\ .

Dende-Soft

Дата 16.2.2008, 16:44 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 30
Регистрация: 10.3.2007

Репутация: нет
Всего: нет

Цитата

lastovetski, А что с деревом будешь делать? Вывод в файл или в мемо, может тревью?

Если вывод, то что предложишь?

Rohoss

Дата 16.2.2008, 21:47 (ссылка)

(нет голосов)

Загрузка ...

Начальник интернета

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

Репутация: нет
Всего: 18

Код


procedure ScanDir(StartDir: string; Mask: string; List: TStrings);
var
  SearchRec: TSearchRec;
begin
  if Mask = '' then
    Mask := '*.*';
  if StartDir[Length(StartDir)] <> '\' then
    StartDir := StartDir + '\';
  if FindFirst(StartDir + Mask, faAnyFile, SearchRec) = 0 then
  begin
    repeat Application.ProcessMessages;
      if (SearchRec.Attr and faDirectory) <> faDirectory then
        List.Add(StartDir + SearchRec.Name)
      else if (SearchRec.Name <> '..') and (SearchRec.Name <> '.')then begin
        List.Add(StartDir + SearchRec.Name + '\');
      ScanDir(StartDir + SearchRec.Name + '\', Mask, List);
  end;
until FindNext(SearchRec) <> 0;
FindClose(SearchRec);
end;
end;

Где-то нашёл, непомню где...

--------------------

Файловый менеджер Explorer.Net скачать video

elCorsaiR

Дата 20.2.2008, 16:00 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 6
Регистрация: 20.2.2008

Репутация: нет
Всего: нет

Есть интерфейс IShellFolder, предоставляющий доступ не только к реальным папкам, но и к Моему компьютеру и т.д. С его помощью можно полностью реализовать все функциональность Проводника и даже больше... В состав Делфы входит пример(Borland\Delphi7\Demos\Virtual Listview) как с ним работать.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »