Kopiering af et helt katalog med evt. underkataloger

Du skal bruge en windows funktion der hedder SHFILEOPSTRUCT. På Http://Borrisholt.com under \"FileIO\" finder du et ready-to-go eksemple på hvordan du gøre eksemplet hedder FileHandling.

Jens B

Hent nedenstående eksempel fra borrisholts hjemmeside og kig lidt på det:

http://borrisholt.com/FileIO/DelphiSource/Filehandling.zip

Så kan det ikke gøre nemmere når du skal kopiere foldere med underkataloger ;)

Snowball

Du kan eventuelt også selv søge gennem dit fil-træ og kopiere filene en efter en som du finder dem (Det har jeg også kode til). Men hvis det eneste du vil er at kopiere, kan du ligesågodt lade windows gøre det ....

jens B

Nå, han var selv hurtigere ;)

Snowball

..igen.

Og ellers er her en stump kode til at gøre det manuelt - hvis der nu
er noget andet der skal gøres undervejs - i hvert fald til inspiration.
Ja, ja, der er \"fejl\" i - filer kan f.eks. ikke begynde med punktum...

  l:=TStringList.Create;        root:=exefile[1]+\':\'+cdkat;
  l.add(\'\');
  while l.count>0 do
  begin
    d:=l.strings[0];
    l.delete(0);
    if FindFirst(root+d+\'\\*.*\',faAnyFile,s)=0 then
    begin
      repeat
        if s.Name[1]<>\'.\' then
        begin
          if (s.Attr and faDirectory)<>0 then
          begin
            l.add(d+\'\\\'+s.Name);
            CreateFolder(Edit1text+\'\\\'+d+\'\\\'+s.name);
          end
          else
          begin
            if not CopyFile(PChar(root+d+\'\\\'+s.Name),PChar(Edit1text+d+\'\\\'+s.Name),false) then
              showmessage(\'Filen \'+ Edit1text+d+\'\\\'+s.Name+ \' kunne ikke oprettes\')
            else
              setfileattributes(PChar(Edit1text+d+\'\\\'+s.Name),0);
          end
        end
      until FindNext(s)<>0;
    end;
  end;

Det er det mest effektive forum jeg nogen sinde har deltaget. Jeg er helt ked af ikke at kunne tildele point til alle, men da borrisholt både var den hurtigste og den der har lavet programmet får han hermed mine points.