katalogowanie dysku

wiecie moze jak skatagolowac dysk, albo jakas partycje na dysku ?

z gory dziex za odpowiedz

Co rozumiesz przez skatalogować? Wypisać pliki/partycje? Sprawdzić sumy kontrolne? Sprecyzuj.

chodzi mi o wypisanie wszystkich plikow, rozmiarow i rozszerzen...

dir C:\ /S

chodzi mi o Delphi a nie o DOS

procedure ListDir(Path:string; Memo:TMemo; Prefix:string);
var SearchRec:TSearchRec;
begin
Memo.Lines.Add(Prefix+Path);
Prefix:=Prefix+#9;

if FindFirst(Path+'*', faAnyFile, SearchRec) = 0 then
  begin
    repeat
    if (SearchRec.Name<>'.') and
       (SearchRec.Name<>'..') and
       (SearchRec.Attr and faDirectory = faDirectory) then
      ListDir(Path+SearchRec.Name+'\', Memo, Prefix)
    until FindNext(SearchRec) <> 0;
  FindClose(SearchRec);
  end;

if FindFirst(Path+'*', faAnyFile, SearchRec) = 0 then
  begin
    repeat
    if (SearchRec.Name<>'.') and
       (SearchRec.Name<>'..') and
       (SearchRec.Attr and faDirectory <> faDirectory) then
      Memo.Lines.Add(Prefix + SearchRec.Name + #9#9 +
        IntToStr(SearchRec.Size) + #9#9 +
        ExtractFileExt(SearchRec.Name));
    until FindNext(SearchRec) <> 0;
  FindClose(SearchRec);
  end;

end;

ListDir('C:\', Memo1, '');

Szczawik, jestes THE BEST !

Szczawik napisał(a)

...

Widzę, że dzisiaj dzień dobroci dla leni :P

Właściwie była noc, ale odsłuchiwałem sobie album muzyczny i miałem chwilkę czasu :)