problem z tree

0

mam maly problemik i nawet niebardzo wiem jak sie za niego zabrac. chce zrobic cos w stylu dosowaskiego tree. ale najpierw musze zrzucic do plik "drzewo" dysku chodzi mi o wszyskie katalogi i podkatalogi jakie sa np. na dysku c.

probowalem z findfile i findnext zeby pozyzskac sciazki ale zabardzo nic z tego nie wyszlo.
Wiec jesli ktos wie czym lub jak cos takiego sie robi to super fajnie by bylo :)

pozdrawiam i thanx za wszystko :)

0

pod Turbopascala czy Delphi??? - pomoge!

0

function Szukaj(Czego, Gdzie: String): String;

function FindIt(Dir, Maska: String; Rodzaj: Integer) : TStringList;
var
Found : Integer;
SR: TSearchRec;
begin
Result := TStringList.Create;
try
if Dir[Length(Dir)]&lt&gt '\' then Dir:= Dir + '\';
Found := FindFirst(Dir + Maska, Rodzaj, SR);
while ( Found = 0 ) do
begin
if (SR.Name &lt&gt '.') and (SR.Name &lt&gt '..') then
Result.Add(Dir + SR.Name);
Found := FindNext(SR);
end;
finally
FindClose(SR);
end;
end;

var
tmp: string;
n: Integer;
Katalogi: TStringList;
begin
Katalogi:=TStringList.Create;
tmp:=FindIt(Gdzie,Czego,faAnyFile).Text;
Katalogi.Text:=FindIt(Gdzie,'.',faAnyFile and faDirectory).Text;
for n:=0 to Katalogi.Count-1 do
begin
tmp:=tmp+#13+Szukaj(Czego,Katalogi.Strings[n]);
end;
Katalogi.Free;
Result:=tmp
end;

Zmodyfikuj to. Ten kod przeszukuje dany katalog i pod katalogi [zmienna Gdzie] w poszukiwaniu plikow pasujacych do maski [zmienna Czego]. --sys:&gt logout....

0

WIELKIE DZIEKI {browar} jak tylko bede w domku to zaraz zaadoptuje :) dzieki

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0