pictogram Auteur: Patrick Biker
Date: 18 mars 2006
Maj : 21 Mars 2015

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


Cet exemple permet de lister les fichiers de type .JPG présents dans le répertoire en cours du site "ftp.cdrom.com". Pour chaque fichier trouvé par la fonction FTPListeFichier, la procédure ListeFic est lancée. Cette procédure permet de compter le nombre de fichiers d'extension ".JPG".



// Connexion à un site FTP
nConnexion est un entier
nConnexion = FTPConnecte("ftp.cdrom.com")

nFichier est un entier  // Nombre de fichiers présents dans le répertoire
nJPG est un entier      // Nombre de fichiers .JPG
nJPG = 0

// On liste les fichiers du répertoire en cours
nFichier = FTPListeFichier (nConnexion, "", "ListeFic", FTPFichier , nJPG)
Info("Il y a" +nJPG+ "fichiers .JPG sur" +nFichier+ "fichiers listés") 
// procédure appelée par FTPListeFichier
Procédure ListeFic(Nom, nTaille, sAttribut, sDate, sHeure, nParam)
SI Droite(Nom, 4) = ".JPG" ALORS
   nParam++
FIN
Renvoyer Vrai