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.
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
|