ang spg 28204 og file properties i win2k

Prøv at hente denne her:
http://www.pythia.dk/komponenter/download/TFileSearch.zip

Et færdigt komponent... Jeg ved ikke om det virker i win2k, men for mig virker den sgu udemærket! ;)

ikke lige det jeg var ude efter, men ellers en udemærket komponent :-)

Yepper! :)

Virker den under win2k?

Jeg har lige testet min kode finder DA ALLE filer ....

Jens B

Unit2.pas, linje 128 :
  res := FindFirst ( GatherFileName( Path,VFileMask), faAnyFile, VSearchRec);

Jens B

På mit system lister den kun de filer der er markeret som archive ? Jeg har godt luret det med faAnyfile, men det virker bare ikke ? Nogen ideer ?

prøv lige at smide en ListBox på en form også kald det her kode :

procedure TForm1.FormCreate(Sender: TObject);
var
  Res : Word;
  SearchRec : TSearchRec;
begin
  Res := FindFirst('C:\*.*', faAnyfile, SearchRec);
  while res = 0 do
  begin
    ListBox1.Items.Add(SearchRec.Name);
    Res := FindNext(SearchRec);
  end;
  FindCLose(SearchRec);
end;


Jens B

Det bliver først senere i dag, da jeg ikke har delphi installeret på arbejdet

Det virker fint nok ? Meget underligt ... Nu har jeg slf lige reformatteret min maskine og lavet en frisk delphi intallation, så nu må jeg jo se om det andet virker også :-)

Jeg kan slet ikke vælge at filen skal archieve længere ?? underligt, men det ser ud til at virke nu ... Hvis der er nogen der synes de vil have point så smid et svar

:-)