AYUDA EN LÍNEA
 WINDEVWEBDEV Y WINDEV MOBILE

Ayuda / WLanguage / Funciones WLanguage / Funciones estándar / Funciones de archivos externos
  • Afficher dans un champ Liste les noms courts des fichiers présents dans un répertoire
fShortName (Example)
Afficher dans un champ Liste les noms courts des fichiers présents dans un répertoire
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 un champ Liste (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 le champ Liste
ListeAjoute(LISTE_ListeNomCourt, ResNomCourt)
FIN
FIN
Versión mínima requerida
  • Versión 9
Esta página también está disponible para…
Comentarios
Haga clic en [Agregar] para publicar un comentario

Última modificación: 22/07/2022

Señalar un error o enviar una sugerencia | Ayuda local