Error en Mover Archivos mediante la Api

[Casimiro Noteví]

¡¡¡Mandeee!!!

[Neftali [Germán.Estévez]]

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.

[[escafandra]]

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í:

  String name_file="a.txt";
  String To="F:\\;";       // Añado un caracter mas
  String From="C:\\"+name_file+";"; // Añado un caracter mas
  To[To.Length()] = 0;     //Aseguro un nulo al final, el segundo nulo se pondrá con c_str()
  From[From.Length()] = 0; //Aseguro un nulo al final, el segundo nulo se pondrá con c_str()

  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);

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.

[rodno]

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

[ecfisa]

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

Preguntas que no hay que hacer

He aquí algunos ejemplos de preguntas mal planteadas que seguramente nadie va a responder, por favor te pedimos que no hagas este tipo de preguntas.

1.- Tengo problemas con Delphi ¿puede alguno ayudarme?

2.- ¿Me podéis pasar el crack X?

Cómo ves la primera es insustancial, poco te van a poder ayudar, en cuanto a la segunda, no queremos que el foro se convierta en un lugar de piratas.

Tampoco debes realizar varias preguntas en un mismo hilo, para que te hagas una idea mejor te ponemos un ejemplito...

1.- ¿Cómo podría cambiar las propiedades de una carpeta y de unos archivos para convertirlos en ocultos?

2.- ¿Tiene Delphi alguna función para validar una cadena y saber si su formato es tipo hh:mm:ss?

Son dos temas totalmente distintos, debes abrir un hilo para cada una de ellas, por favor no hagas las dos preguntas en un mismo hilo.

Saludos y gracias por tu colaboración.

[rodno]

ok, disculpen