Bonjour,
J'ai une application, je chercher m'affranchir de l’utilisation de chemin absolue
Quand je déplace le repertoire (par exemple, vers un répertoire utilisateur ou un autre disque dur), le programme ne trouver plus les fichiers liés ni exécuter le script.
1 2 3 4 5 6 7 8
| FOR Each Directory in DirList('..\PROJET1\Sources\20*') // Pour chaque dossier commençant par 20...on va effectuer la boucle
Let folder='$(Directory)\*';
FOR Each Directory in DirList('$(folder)')
Let folder2='$(Directory)\*';
FOR Each File in FileList('$(folder2)')
//let var = "..\PSR\" & $(File);
LET AnneeTravail = Left(Right('$(folder)',8),4);
LET MoisTravail = Right(Left('$(folder)',57),2); |
Plus loin dans mon code je réutilise encore je suis obligé de réutiliser les fonctions Right() et left pour obtenir l'information que je souhaite
Exemple :
left(Mid('$(folder2)',index('$(folder2)', '2')+7),index(Mid('$(folder2)',index('$(folder2)', '2')+7),'\')-1) as Ville
ou
Right(Left('$(folder)',59),2) as NumMois,
C'est pas du tout pratique
Merci pour votre aide
Partager