Скачать: CL | DM;

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

← →
Гость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 файл и подключить его к проекту.

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

---

← →
Anatoly Podgoretsky ©   (2005-09-19 13:22) [10]

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

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

---

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

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

---

← →
HEXO4YXA ©   (2005-09-19 13:53) [12]

вот рекурсивная процедурка сканит все каталоги на диске "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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.026 c