Find, check og evt. slet

Delphi?!? Ikke lige min kop the, hvad med Visual Basic?

Hvis du vil lave hele programmet for 139 point så er det da i orden !? :) Jeg kender bare ikke ret meget til VB og har ikke programmer så jeg kan kopilere VB kode !

Snowball

Jeg går igang her lidt senere (jeg skal nemlig lige hjem), og så er jeg forhåbentlig færdig i aften!  :-)

Det var da et sjovt antal point du har fundet dig Snowball???

/ZIRON

Lyder godt :)

Hvis der bare er 2 edit bokse hvor jeg kan vælge stien og min. filstørrelse og en knap der starter det hele, så er det fint! Evt. også noget status agtigt noget :)

Snowball

ziron >> Fordi at så har han et \"rundt\" antal point...  *g*

ziron: Ved det, men nu har jeg så\'n et \"pænt afrundet\" antal point ;)

Snwoball

kigger lige :-)

/ZIRON

jamen hvor er det dog pænt 17800 point he he :-)

/ZIRON

Hvad med sådan :

-------

procedure ScanFiles( const aPath,aMask : String; Subs : Boolean );
VAR
  S  : TSearchRec;
  CPath : String;
begin
  ChDir(aPath);
  GetDir(0,CPath);

  if FindFirst(IncludeTrailingBackslash(CPath)+aMask,faANYFILE,S) = 0 then
  repeat
      if ( S.Attr and faSysFile = 0 ) and ( S.Attr and faDIRECTORY = 0 ) and
        ( S.Attr and faVolumeID = 0 ) and ( S.Name[1] <> \'.\' ) and ( S.Name[1] <> \'..\' ) then
      begin
        // Check fil størelse her og slet hvis nødvendigt
  Fundet fil = IncludeTrailingBackslash(CPath)+S.FindData.cFileName;
      end;
  until FindNext(S) <> 0;
  FindClose(S);

  if Subs and ( FindFirst(\'*.*\',faDIRECTORY,S) = 0 ) then
  repeat
      if ( S.Attr and faDIRECTORY <> 0 ) and ( S.Name[1] <> \'.\' ) and ( S.Name[1] <> \'..\' ) then
      begin
        ScanFiles(IncludeTrailingBackslash(CPath)+S.Name,aMask,Subs);
        ChDir(\'..\');
      end;
  until FindNext(S) <> 0;
  FindClose(S);
end;

Procedure TForm1.Button1.Click( Sender : TObject );
begin
  ScanFiles(\'C:\\TempFiles\',\'*.*\',TRUE); 
end;

-------------------

/Martin

TSearchRec indeholder alle de fil informationer du har brug for og delphi har alle Fil-rutiner, deletefile osv.

Så lykkedes det!

Ved brug af Martins rutine og ved lidt hjælp fra http://borrisholt.com kører det som det skal :)

Hvis det har nogens interesse så kan projektet hentes på nedenstående link:

http://home1.inet.tele.dk/j-cgeert/search.zip

Så nu vil jeg ikke håbe minijensen1 er gået i gang med at lave noget !?

Tak for hjælpen !

Snwoball

Hihi, jeg var faktisk lige blevet færdig!
http://213.237.78.23/snowball/Project1.exe
Du kan bare hente det og se om det kan bruges til noget!

hhmmm...kan ikke hente filen !?

Snowball

Selv tak :-)

Snowball >> sidder lige og kigger på dit projekt og tror jeg har fundet en fejl :-(

husk at sætte disse:

TCount := 1;
DCount := 0;

ved goclick....

ellers flot nok det må jeg sku sige...

/ZIRON