Blog Pro de Jean-Baptiste HEREN

/********************************/

/* Initialisation des variables */

/********************************/

Local File &File;

 

&file_dir = UNE_TABLE_AET.FILE_DIRECTORY;

&file_name = UNE_TABLE_AET.FILE_NAME;

 

&new_file_dir = UNE_TABLE_AET.FILE_DIR_SERVER;

&new_file_name = &file_name | "_" | UNE_TABLE_AET.PROCESS_INSTANCE;

 

&cheminbatch = &new_file_dir | UNE_TABLE_AET.PROCESS_INSTANCE | ".bat ";

&chemin = &file_dir | &file_name;

&cheminnouveau = &new_file_dir | &new_file_name;

 

&commandcp = "move " | &chemin | " " | &cheminnouveau;

&commandrm = "del " | &chemin;

&commandrm2 = "del " | &cheminbatch;

 

/* Ecriture d'un BATCH script de déplacement & renommage du fichier */

&File = GetFile(&cheminbatch, "W", "A", %FilePath_Absolute);

&File.WriteLine(&commandcp);

&File.WriteLine(&commandrm);

&File.WriteLine(&commandrm2);

&File.Close();

 

/* création d'un fichier log.*/

REM &cheminbatch = &cheminbatch | " > " | &new_file_dir | UNE_TABLE_AET.PROCESS_INSTANCE | ".log";

 

/* Exécution de du batch */

If Exec(&cheminbatch, %Exec_Synchronous + %FilePath_Absolute) >= 0 Then

   MessageBox(0, "", 0, 0, "Déplacement du fichier de %1 à %2 réussi", &chemin, &cheminnouveau);

End-If;