Kopiere filer

[espen321]

Har litt problemer med og kopiere filer.

Jeg har filnavnet som string, men fra den

innebykde komandoen CopyFile() så er filnavnet PAnsiChar.

Lurer også på hvordan delphi kan kopiere mapper.

[tasle]

Å kopiere en fil:

If Not CopyFile (PChar (FraFil), PChar (TilFil), False) Then;// FeilMelding

 

Å kopiere en hel mappe med innhold (som en funksjon):

Function KopiDir (Const FraDir, TilDir: String): Boolean;

Var

 FOS                            : TSHFileOpStruct;

Begin

 ZeroMemory (@FOS, Sizeof (FOS));

 With FOS Do

   Begin

     wFunc:= FO_COPY;

     fFlags:= FOF_FILESONLY;

     pFrom:= PChar (FraDir + #0);

     pTo:= PChar (TilDir)

   End;

 Result:= (0 = ShFileOperation (FOS));

End;

Sistnevnte bruker ShellAPI.