Error en Mover Archivos mediante la Api

[ecfisa]

Hola rodno.

¡ Por favor, usá las etiquetas [delphi] [/delphi] para encerrar el código !

Mirá la diferencia de la legibilidad de tu mensaje con el uso de ellas:

Hola a todos, estoy haciendo una aplicacion que permita mover archivos mediante la Api de windows, utilicé este codigo que postio http://www.delphiaccess.com/forum/tr...os-y-carpetas/

Código Delphi [-]
  String To="E:\\";   
  String from="C:\\a.txt";   
  SHFILEOPSTRUCT FS;   
  ZeroMemory(&FS, sizeof(SHFILEOPSTRUCT));   
  FS.hwnd = Handle;   
  FS.wFunc = FO_MOVE;   
  FS.pFrom = from.c_str();   
  FS.pTo =   To.c_str();;   
  FS.fFlags = FOF_ALLOWUNDO || FOF_NOCONFIRMATION;
  SHFileOperation(&FS);

Pero cuando lo hago asi:

Código Delphi [-]
   
  String name_file="a.txt";   
  String To="E:\\";   
  String from="C:\\"+name_file;   
  SHFILEOPSTRUCT FS;   
  ZeroMemory(&FS, sizeof(SHFILEOPSTRUCT));   
  FS.hwnd = Handle;   
  FS.wFunc = FO_MOVE;  
  FS.pFrom = from.c_str();   
  FS.pTo =   To.c_str();;   
  FS.fFlags = FOF_ALLOWUNDO || FOF_NOCONFIRMATION;
  SHFileOperation(&FS);

No funciona, me dice que "no se puede encontrar el archivo de origen", y la ruta hacia el fichero esta bien, comprobando mediante la funcion FileExists(from), el problema siempre me lo da cuando concateno las cadenas.



Saludos y muchas gracias por tu colaboración.

[rodno]

Lo siento de verdad, es que lo postie, y trate de editarlo y cada ves que iba a cargar la pagina no cargaba completa o si no me decia que tenia que esperar mas de 25 minutos. Neftali lo quise decir es que cuando concateno el path del directorio donde se encuentra el fichero y el nombre del fichero es que da el problema

[ecfisa]

Hola rodno.

Probá de este modo:

...
AnsiString name_file = "a.txt";
AnsiString Origen = "C:\\" + name_file;
AnsiString Destino = "E:\\" + name_file;
  SHFILEOPSTRUCT FS;
  ZeroMemory(&FS, sizeof(SHFILEOPSTRUCT));
  FS.hwnd = Handle;
  FS.wFunc = FO_MOVE;
  FS.pFrom = Origen.c_str();
  FS.pTo = Destino.c_str();;
  FS.fFlags = FOF_ALLOWUNDO || FOF_NOCONFIRMATION;
  SHFileOperation(&FS);
...

Saludos

[rodno]

nada, sigue con el mismo problema, no se realmente que sucede y cual es el misterio, es que mediante la funcion FileExists me devuelve que si existe el fichero que voy a copiar. saludos y gracias por su interes

[ecfisa]

Hola rodno.

El código que te adjunté funciona correctamente.

¿ Estás seguro que el archivo existe y se llama exáctamente así ? ¿ Las unidades y carpetas de origen y destino son correctas ?

Verificá todo eso con el explorador de Windows.

Saludos.

[rodno]

Si, todo esta comprobado, haciendolo de esta forma:

Código Delphi [-]
AnsiString Origen = "C:\\a.txt"

si funciona correctamente saludos