hier is een stuk van mijn code

[Verwijderd]

je moet wel wat onzin er uit verwijderen aangezien het een gedeelte van een applicatie is die ik gebruik.

copieert alle gewijzigde bestanden en ontbrekende subdirectories van de ene locatie naar de andere (synchroniseren) en ook maakt hij read only bestanden gewoon weer readablen tijdens het copieren

gooi ook ff filectrl in je use code

code:

 procedure Tform1.zoekdir(pad, topad : string ) ;
var
sr : tsearchrec ;
r :  integer ;
Attributes : Word;
begin
panel1.caption := 'Synchroniseren van bestanden';
panel1.update ;
r := findfirst(pad + '\*.*', faanyfile, sr);
 while r = 0 do
 begin
 statusbar1.Panels.Items[0].Text := sr.name;
 statusbar1.Update;
     if (sr.name <> '.') and (sr.name <> '..')  then
    begin
     if (sr.attr <> 0) and (fadirectory <> 0) then
     begin
    if not DirectoryExists (topad ) then
    begin
    ForceDirectories(topad );
    memo1.lines.Append('directory gemaakt : ' + topad) ;
    application.processmessages ;
    end;
     zoekdir(pad +'\'+sr.name, topad + '\'+ sr.name) ;
     end;
    end;
     if FileAge(topad + '\'+ sr.name) <> fileage(pad +'\' + sr.name) then
    begin
    CopyFile(pchar(pad + '\' + sr.name),pchar(topad+ '\' + sr.name),FALSE);
    Attributes := FileGetAttr(pchar(topad + '\' +sr.name));
    FileSetAttr(pchar(topad + '\' +sr.name),attributes and not fareadonly);
    memo1.lines.append('Bestand gemaakt : ' + topad + '\' + sr.name) ;
    application.processmessages;
    end;
   r := findnext(Sr)
 end;
findclose(sr);
end;

[D2k]

riiiiiiiiiiiiiiiiiiiiight?

[ACM]

En wat moeten we er mee?

Als je alleen de code met "iedereen wil delen" post het dan bij www.codebase.nl ofzo