Exemple d'utilisation de la commande fNomCourt

Exemples évolués

Chaque exemple montre une utilisation pratique de la fonction du WLangage.

Quand plusieurs syntaxes sont possibles, chacune est illustrée indépendamment.

Revenir à la page des exemples évolués

Le code suivant permet de :

- stocker les noms des fichiers d'un répertoire dans un tableau (TableauChemin),

- afficher les noms courts de l'ensemble des fichiers d'un répertoire dans une liste (ListeNomCourt).

// Déclaration et initialisation des variables
CheminFichierRep est une chaîne
ResNomCourt est une chaîne
IndiceTab est un entier = 0 // Indice du tableau
IndiceBoucle est un entier
TableauChemin est un tableau
// Récupération du premier fichier d'un répertoire
CheminFichierRep = fRep("C:\MesRépertoires\*.*", frFichier )
TANTQUE CheminFichierRep <> "" ALORS
   // Incrémentation de l'indice du tableau
   IndiceTab++
   // Intégration des noms des fichiers dans le tableau
   TableauChemin[IndiceTab] = CheminFichierRep
   // Récupération du fichier suivant
   CheminFichierRep = fRep("")
FIN
POUR IndiceBoucle = 1 à IndiceTab
   // Récupération du nom court
   ResNomCourt = fNomCourt (TableauChemin[IndiceBoucle])
   SI ResNomCourt = "" ALORS
      // Affichage du message d'erreur si la récupération n'a pas été effectuée
      Erreur(ErreurInfo( errMESSAGE ))
   SINON
      // Affichage du nom court dans la liste
      ListeAjoute(ListeNomCourt, ResNomCourt)
   FIN
FIN