3 respuestas en este tema

[marthamelo]

Hola a todos y todas, bueno hoy tengo una duda  que ya me duele la cabeza y los dedos de buscar en la red, he encontrado información pero no me han funcionado mucho. Me explico
Tengo una aplicación en la cual quiero mover ficheros de muchos tipos de un otros lugares  a un archivo dentro de mi aplicación  entre los ficheros incluyo videos textos etc. He probado utilizando opendialog para cargar y hasta ahí todo bien pero no sé cómo hacer para guardar dentro de mi archivo cuya ruta seria (.\datos\) y luego de esa barra iría un archivo que se crea cuando edito un edit  así que seria

delphi

('.\datos\ '+edit1.text)

. También he utilizado el código que viene en trucomania  y este funciona bien cuando le doy la dirección completa incluyendo disco y todo pero no me funciona con la que yo creé de datos.

delphi

function CopiaTodo(Origen,Destino : String) :
  LongInt;
  var 
    F : TShFileOpStruct;
    sOrigen, sDestino : String;
  begin 
    Result := 0;
    sOrigen := Origen + #0;
    sDestino := Destino + #0;
    with F do 
    begin 
      Wnd   := Application.Handle;
      wFunc := FO_COPY;
      pFrom := @sOrigen[1];
      pTo   := @sDestino[1];
      fFlags := FOF_ALLOWUNDO or FOF_NOCONFIRMATION
    end; 
    Result := ShFileOperation(F);
end; 
 
begin 
  CopiaTodo(opendialog1.filename\datos\ , '.\datos\ '+edit1.text);
end;

También utilicé la forma de ( CopyFile)

delphi

CopyFile(PChar(opendialog1.filename),PChar('.\datos\ '+edit1.text),FALSE)

pero me da el error que en el anterior  funciona con la dirección completa pero no con la simplificada que  puse antes, el problema es que la carpeta donde se guardara se crea si no existe cuando edito el edit1  espero como siempre su ayuda gracias

[egostar]

Hola

Una cosa es Copiar un archivo y otra mover un archivo, para mover archivos deberias utilizar la función RenameFile()

Ejemplo:

delphi

    ArchivoOrigen := 'C:\DirectorioOrigen\NombreArchivo.Extension';
    RutaDestino := 'C:\DirectorioDestino\'
    RenameFile(ArchivoOrigen, RutaDestino + ExtractFileName(ArchivoOrigen));

Salud OS

[marthamelo]

Hola egostar, si es verdad he utilizado también tu sugerencia y nada no me copia el archivo

[escafandra]

He probado utilizando opendialog para cargar y hasta ahí todo bien pero no sé cómo hacer para guardar dentro de mi archivo cuya ruta seria (.\datos\) y luego de esa barra iría un archivo que se crea cuando edito un edit  así que seria

delphi

('.\datos\ '+edit1.text)

.

La verdad es que es difícil entender lo que quieres. Me parece que pretendes mover archivos a una carpeta que está dentro de la carpeta que contiene tu aplicación y que se llama datos. lo que no entiendo es lo del edit1.txt. ¿Es un archivo o una carpeta?.

La ruta la resuelves así:

delphi

Path:= ExtractFilePath(Application.ExeName) + 'datos\'

Por otro lado, la API ShFileOperation es capaz de mover y no copiar si se usa la opción FO_MOVE. La ventaja de esta API es que al usar el Shell, el usuario puede monitorizar el avanze como si lo hiciese el explorador, pero siempre que no se añada la opción FOF_SILENT

Saludos.