wiecie moze jak skatagolowac dysk, albo jakas partycje na dysku ?
z gory dziex za odpowiedz
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 :)
Zarejestruj się i dołącz do największej społeczności programistów w Polsce.
Otrzymaj wsparcie, dziel się wiedzą i rozwijaj swoje umiejętności z najlepszymi.