Hjælp til 200 point

Jeg vil gerne vide hvordan man for computeren til at kopier et helt drev af gangen til en mappe

Den skal kopiere alt hvad der er på a:\ diskenten til følgende mappe på computeren C:\windows\skrivebord\ny mappe

Dette kan bruges:

CopyDir('a:\','c:\windows\skrivebord\ny mappe');

----------------------------
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;
  FindClose(SearchRec);
end;