Déplacer un fichier avec Peoplecode
Par jb le mercredi 4 novembre 2009, 21:39 - Peoplesoft - Lien permanent
Pour faire court voici un exemple d'utilisation de la commande exec() et
d'un fichier batch pour déplacer un fichier.
/********************************//* 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 ThenMessageBox(0, "", 0, 0, "Déplacement du fichier de %1 à %2 réussi", &chemin, &cheminnouveau);End-If;