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

← →
Гость22 (2005-09-19 11:03) [0]

Нужно создать екзешник, который сохранит информацию о всех! файлах и каталогах (включая пути и размер файлов) на данном компе.

← →
Fay © (2005-09-19 11:04) [1]

2 Гость22 (19.09.05 11:03)
FindFirstFile и т.д.

← →
Плохиш © (2005-09-19 11:05) [2]

> Гость22 (19.09.05 11:03)
> Нужно создать екзешник

Создавай, разрешаю.

← →
Sergey13 © (2005-09-19 11:10) [3]

dir /s >dir.txt

← →
Anatoly Podgoretsky © (2005-09-19 11:12) [4]

Создать .rc файл и подключить его к проекту.

← →
Гость22 (2005-09-19 11:51) [5]

> Создать .rc файл и подключить его к проекту.

а можнга поподробнее?

> dir /s >dir.txt

и так в каждую папку лазить руками??

← →
Fay © (2005-09-19 11:53) [6]

2 Гость22 (19.09.05 11:51) [5]
Что именно тебе нужно? Получить инфу о файлах, или запихать её в exe-шник?

← →
Sergey13 © (2005-09-19 11:54) [7]

2 [5] Гость22 (19.09.05 11:51)
>и так в каждую папку лазить руками??
Нет. Только по всем дискам.

← →
Anatoly Podgoretsky © (2005-09-19 11:56) [8]

Гость22 (19.09.05 11:51) [5]
А ты сначала задай вопрос по русски.

← →
Гость22 (2005-09-19 12:53) [9]

> Что именно тебе нужно? Получить инфу о файлах, или запихать
> её в exe-шник?

получить всю инфу о файлах и сохранить, например, в .txt

> Создать .rc файл и подключить его к проекту.

а можна поподробнее?

Гость22 (19.09.05 12:53) [9]
См. Sergey13 © (19.09.05 11:10) [3]

а можна поподробнее?
В данной редакции это уже не требуется.

← →
Гость22 (2005-09-19 13:25) [11]

ну так как собрать всю инфу?
Кто-то подскажет?

вот рекурсивная процедурка сканит все каталоги на диске "Dir":

Procedure TForm1.ScanDir(Dir:string); var SearchRec:TSearchRec; begin if Dir<>"" then if Dir[length(Dir)]<>"\" then Dir:=Dir+"\"; Application.ProcessMessages; if FindFirst(Dir+"*.*", faAnyFile, SearchRec)=0 then repeat Application.ProcessMessages; if (SearchRec.name=".") or (SearchRec.name="..") then continue; if (SearchRec.Attr and faDirectory)<>0 then ScanDir(Dir+SearchRec.name) //we found Directory: "Dir+SearchRec.name" else begin // Раскомменть здесь, если хочешь искать по определенному расширению // if ExtractFileExt(Dir+SearchRec.name) = ".exe" then // Здеся засовывай имена файлов и любую инфу о них куда хочешь end; Application.ProcessMessages; until FindNext(SearchRec)<>0; FindClose(SearchRec); end;

Поскажите, как собрать всю инфу о файлах и папках на компе? Найти похожие ветки