Kopiering af et DIR

uhmm du kunne fx lave en TStringlist og så smide alle filer ind i den, og så
kunne du lave noget der ligner dette
var i:integer;

for i : 0 to stringlist.items.count -1 do
  begin
    copyfile(mappe + stringlist.items[i],edit1.text)
  end;

uhmm jeg er ikke helt sikker på om det er sådan stringlist virker... har aldrig brugt den *g* men ellers kan du bare lige se i hjælpefilen om stringlist

Jeg kan godt forstille mig at jeg har lavet et eller andet galt her, men det er vist den nemmeste måde da der ikke er en commando der hedder CopyDirectory hehe

Det vil kun virke hvis der ikke er undermapper i mappen.

med hensyn til TStringList'en, så skal du huske og oprette den, og nedlægge den når du er færdig.

Ellers kan du prøve dette:
-------------- KLIP ---------------

Uses FileCTRL;

Procedure CopyDir(fra,til:string);
var
  SearchRec: TSearchRec;
begin
  If Copy(fra,Length(fra),1)<>'\' then Fra:=fra+'\';
  If Copy(Til,Length(Til),1)<>'\' then Til:=Til+'\';
//  Tjek om mapperne findes
  IF not DirectoryExists(fra) then begin showmessage('Mappen "'+fra+'" findes ikke.');exit;end;
  IF not DirectoryExists(til) then begin
    MkDir(Til);
  end;
//Led filerne igennem
  If FindFirst(fra, faAnyFile, SearchRec)=0 Then
  Repeat
    If SearchRec.Attr=faDirectory Then begin
      If (SearchRec.Name='.')or(SearchRec.Name='..') then Continue;
      //Kopier undermappe med
      CopyDir(Fra+SearchRec.Name,Til+SearchRec.Name);
    end else begin
      CopyFile(PChar(Fra+SearchRec.Name),PChar(Til+SearchRec.Name),False);
    end;
  until FindNext(SearchRec) <> 0;
end;

Det er noget jeg lige hurtigt har smækket sammen, den kunne godt bruge nogle tjek rundt omkring.

f.eks. Burde den tjekke om den nu også fik oprettet den nye mappe, og om den nu også fik kopieret filen..

Men idéen er der!

Woops.. To fejl: Glemte at lukke søgningen, og glemte søgemasken.

Men nu skulle den virke :)

Ny kode:
----------------------------
Procedure Msg(m:string);begin form1.listbox1.items.add(m);end;

Procedure CopyDir(fra,til:string);
var
  SearchRec: TSearchRec;
begin
  If Copy(fra,Length(fra),1)<>'\' then Fra:=fra+'\';
  If Copy(Til,Length(Til),1)<>'\' then Til:=Til+'\';

//  Tjek om mapperne findes
  IF not DirectoryExists(fra) then begin showmessage('Mappen "'+fra+'" findes ikke.');exit;end;
  IF not DirectoryExists(til) then begin
    MkDir(Til);
  end;
//Led filerne igennem
  If FindFirst(fra+'*.*', faAnyFile, SearchRec)=0 Then
  Repeat
    If SearchRec.Attr=faDirectory Then begin
      If (SearchRec.Name='.')or(SearchRec.Name='..') then Continue;
      //Kopier undermappe med
      CopyDir(Fra+SearchRec.Name,Til+SearchRec.Name);
    end else begin
      CopyFile(PChar(Fra+SearchRec.Name),PChar(Til+SearchRec.Name),False);
    end;
  until FindNext(SearchRec) <> 0;
  FindClose(SearchRec);
end;

Woops igen.. Jeg både hader og elsker copy-paste..

Jeg fik vist lige en lige en forkert linie med:
Procedure Msg(m:string);begin form1.listbox1.items.add(m);end;

Skulle være:
Uses FileCTRL;

hehe.. det ser vist ud til at jeg ikke får nogle point i denne omgang :( Snorga... hvor længe har du egentlig leget med Delphi ???

Godt spørgsmål,

startede med pascal 7-8 år siden (i folkeskolen :-)

Idéen med TStringlist er da heller ikke helt ved siden af!

nej men jeg glemte det med undermapper :)

Jeg startede først for ca 6-7 måneder siden, men inden da har jeg leget meget med Visual Basic og Quick Basic

Well men jeg synes at du har fortjent de points :)

Procedure Msg(m:string);
begin
form1.listbox1.items.add(m);
end;

Virker ikke her, da jeg ikke har en ListBox!

Jeg skriver i sourcen hvilke mappe der skal kopieres fra, så det er KUN destinationen (der hvor filerne skal hen) som brugeren angiver i et EDIT-felt, som hedder Edit1.

Hvordan kalder jeg så selve "Copy"-proceduren???

Procedure Msg(m:string); var en jeg brugte til at teste med, den skulle ikke have været med i svaret. Det var en copy-paste fejl :(

du skal kalde den med:
CopyDir( 'c:\' , edit1.text );

hvor 'c:\' kan byttes ud med det sted du vil kopier fra.

Kan du få det til at virke?

Ja, det kan du tro jeg kan.

Alle tiders, du får de 30 point...:-)

--
Thomas.