Error en Mover Archivos mediante la Api
 

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/ todo funciona muy bien de esta forma: 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: 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

¡¡¡Mandeee!!! :D

Normalmente cuando se utilizan rutas hacia ficheros, debes utilizar el path completo.

Es decir, esa ruta:

Código Delphi [-]
Name_file cadena = "a.txt";

Debes colocarla o usarla con el path completo del fichero.

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.

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

Hola rodno.

Probá de este modo:
Saludos

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

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.

Si, todo esta comprobado, haciendolo de esta forma:

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

si funciona correctamente saludos

Según la documentación de Microsoft, la lista de archivos debe ir, cada archivo separado por un carácter nulo y un doble nulo al final.

Las cadenas en C terminan en un nulo (0) si tratas de sumar a un String un nulo no pasa nada pues para C es una cadena vacía de 0 caracteres. Para conseguir que tus cadenas terminen en doble nulo debes realizar un truco. Si te fijas bien en enlace que diste como referencia te darás cuenta que realiza "algo" con las cadenas antes de usarlas. Otro error que encuentro es que confundes el operador lógico || con el binario |.

Tu código puede quedar así:
PD: El porqué en ocasiones funcionaba o no, sin estas aclaraciones está en la casualidad de que en el espacio de memoria de tus cadenas se encontraran dos nulos o no...

Saludos.

muchas gracias ha funcionado perfecto, otra cosa, sabes que exceptiones puedo capturar para el trabajo con ficheros saludos y gracias

Hola rodno.

Por favor cuando tengas otra pregunta no relacionada con el tema de un hilo, inicia uno nuevo.

Punto 8 de la Guía de estilo


Saludos y gracias por tu colaboración. :)

ok, disculpen