Hvordan bruger man CopyFileTo funtionen

Du kan bruge CopyFile.

F.eks.: CopyFile('C:\Hejhej.bmp','C:\Hejhej1.bmp', False);

hvorfor false?

Hvis der står false overskriver den filen hvis den allerede eksistere.

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/fileio/base/copyfile.asp

Du kan også prøve at bruge Borrisholt's FileHandling som efter min mening er meget lettere at bruge - især hvis man skal kopiere flere filer af gangen. Der er både kopi/flyt/rename funktion i den unit.

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

Snowball

Du kan også bruge:

uses
  ShellApi;

function CopyFile(const ExistingFile, NewFile: string): Boolean;
var
  fos: TSHFileOpStruct;
begin
  ZeroMemory(@fos, SizeOf(fos));
  with fos do
  begin
    wFunc  := FO_COPY;
    fFlags := FOF_FILESONLY;
    pFrom  := PChar(ExistingFile + #0);
    pTo    := PChar(NewFile)
  end;
  Result := (0 = ShFileOperation(fos));
end;

Der er vist også noget her:

http://www.swissdelphicenter.ch/torry/showcode.php?id=28

kan jeg lige spørge om en anden ting.. er der en funktion til at se hvor mange filer der er i en mappe??

Prøv det her:

function AntalFilerIMappe(Mappe: String): Integer;
var
  SR: TSearchRec;
  I: Integer;
begin
I := 0;
  if FindFirst(Mappe + '*.*', faAnyFile, SR) = 0 then
  begin
    repeat
      if (SR.Attr <> faDirectory) then
      begin
        Inc(I);
      end;
    until FindNext(SR) <> 0;
    FindClose(SR);
  end;
Result := I;
end;

hvor skal jeg sætte den ind? bare ind i den procedure jeg skal bruge den i?

sådan:

function AntalFilerIMappe(Mappe: String): Integer;
var
  SR: TSearchRec;
  I: Integer;
begin
I := 0;
  if FindFirst(Mappe + '*.*', faAnyFile, SR) = 0 then
  begin
    repeat
      if (SR.Attr <> faDirectory) then
      begin
        Inc(I);
      end;
    until FindNext(SR) <> 0;
    FindClose(SR);
  end;
Result := I;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(IntToStr(AntalFilerIMappe('C:\')));
end;

tak for hjælpen :)

:-)