Exemple d'utilisation de la commande fNomLong

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 longs de l'ensemble des fichiers d'un répertoire dans une liste (ListeNomLong).

// Déclaration et initialisation des variables
CheminFichierRep est une chaîne
ResNomLong 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 long
   ResNomLong = fNomLong (TableauChemin[IndiceBoucle])
   SI ResNomLong = "" ALORS
      // Affichage du message d'erreur si la récupération n'a pas été effectuée
      Erreur(ErreurInfo( errMESSAGE ))
   SINON
      // Affichage du nom long dans la liste
      ListeAjoute(ListeNomLong, ResNomLong)
   FIN
FIN