¿Mejor manera de mover un directorio con ficheros de un sitio a otro?

[manujimenez]

Buenas:
Podrías decirme cual es la mejor manera de mover un directorio con ficheros de un sitio a otro.
Tanto del disco como de la red.
Gracias

[ecfisa]

Hola.

Si estas usando Lazarus bajo el S.O. Windows podes hacer:

Código Delphi [-]
...
uses Windows, ShellApi;

function MoveDir(const fromDir, toDir: string): Boolean;
var
  fos: TSHFileOpStruct;
begin
  ZeroMemory(@fos, SizeOf(fos));
  fos.wFunc  := FO_MOVE;
  fos.fFlags := FOF_NOCONFIRMMKDIR + FOF_RENAMEONCOLLISION;
  fos.pFrom  := PChar(fromDir + #0);
  fos.pTo    := PChar(toDir);
  Result     := ShFileOperation(fos) = 0;
end;

Un ejemplo de uso:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  if not MoveDir('C:\Folder_A', 'C:\Folder_B\SubFolder_B\Folder_A') then
    ShowMessage('Error moviendo directorio');
end;

Saludos

[manujimenez]

yo estoy usando solo free pascal de lazarus la aplicación es de consola.
De todas maneras es que soy muy nuevo no se donde pegar en la unit que genera lazarus
la linea de funcion:

function MoveDir(const fromDir, toDir: string): Boolean;

y el resto:

ZeroMemory(@fos, SizeOf(fos));
fos.wFunc := FO_MOVE;
fos.fFlags := FOF_NOCONFIRMMKDIR + FOF_RENAMEONCOLLISION;
fos.pFrom := PChar(fromDir + #0);
fos.pTo := PChar(toDir);
Result := ShFileOperation(fos) = 0;

[Casimiro Notevi]

Bienvenido a clubdelphi, como siempre aconsejamos a los nuevos, no olvides leer nuestra guía de estilo, gracias por tu colaboración


Y recuerda poner los tags al código fuente, ejemplo:



Gracias

[manujimenez]

Si Disculpar.... de nuevo.
Necesitaria algo muy sencillo como por ejemplo esto que pusiste pero que funcione en free pascal (terminal)

Código Delphi [-]
begin
  if not MoveDir('C:\Folder_A', 'C:\Folder_B\SubFolder_B\Folder_A') then
    ShowMessage('Error moviendo directorio');
end;

La finalidad es recoger varios directorios y unirlos en una sola carpeta.
Bueno gracias de antemano

[ecfisa]

Hola.

¿ Algo así ?

Código Delphi [-]
// Cabecera (opcional)
program Project1;

// inclusión de unidades a usar
uses Windows, ShellApi;

// declaración de funciones/procedimientos
function MoveDir(const fromDir, toDir: string): Boolean;
var
  fos: TSHFileOpStruct;
begin
  ZeroMemory(@fos, SizeOf(fos));
  fos.wFunc  := FO_MOVE;
  fos.fFlags := FOF_NOCONFIRMMKDIR + FOF_RENAMEONCOLLISION;
  fos.pFrom  := PChar(fromDir + #0);
  fos.pTo    := PChar(toDir);
  Result     := ShFileOperation(fos) = 0;
end;

// cuerpo principal del programa
begin
  ...
  if not MoveDir('C:\Folder_A', 'C:\Folder_B\SubFolder_B\Folder_A') then
    Writeln('Error moviendo directorio');
  ...
end.

Saludos

[manujimenez]

Te agradezco un montón pero no me funciona ni consola con free pascal, ni con lazarus.
Cuando compilo con lazarus me tira esta error.

Código Delphi [-]
Unit1.pas (5,1) Fatal syntax error: "INTERFACE" expected but "USES" found.

Cuando lo compilo con free pascal:

Código Delphi [-]
Mueve_Dir.pas(15,17) Error: Illegal type conversion: "ShortString" to "PChar"
Mueve_Dir.pas(16,17) Error: Illegal type conversion: "ShortString" to "PChar"
Mueve_Dir.pas(17,3) Error: Identifier not found "Result"
Mueve_Dir.pas(22,3) Error: Illegal expression
Mueve_Dir.pas(23,3) Fatal: Syntax error, ";" expected but "IF" found

Gracias