Copying an entire directory

[Logic_Bomb]

I have recently come across the need to copy an entire directory (including all file & sub directories) to another drive from within Pascal, I have looked everywhere and cannot seem to find any help on this issue and there doesn't seem to be a function for it from within Lazarus.

Any tips or Ideas? The files & sub-folders within the directory in question will not be constant and the directory could be quite big, so has anyone any ideas on how to implement this?

Help would be appreciated.

Thanks

Logic_Bomb.

[typo]

http://www.lazarus.freepascal.org/index.php/topic,14872.0.html

On Windows, you can do:

Code: [Select]

// uses ShellApi, Windows
function CopyDir(const fromDir, toDir: string): Boolean;
var
  fos: TSHFileOpStruct;
begin
  ZeroMemory(@fos, SizeOf(fos));
  with fos do
  begin
    wFunc  := FO_COPY;
    fFlags := FOF_FILESONLY;
    pFrom  := PChar(fromDir + #0);
    pTo    := PChar(toDir)
  end;
  Result := (0 = ShFileOperation(fos));
end;   


[Bart]

All you need is something to enumerate a directory:
http://home.tiscali.nl/~knmg0017/software/fpc_laz/enumdirs.zip (which has http://home.tiscali.nl/~knmg0017/software/fpc_laz/extmasks.zip as a dependancy) and a routine to copy files (platform independant): http://home.tiscali.nl/~knmg0017/software/fpc_laz/myfileutils.zip

Bart

[bastla]

If someone is still looking for an working solution to this, I started a topic about this some time ago

Cheers
bastla