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


Le code suivant permet de connaître l'espace disque disponible sur un disque. Le chemin du disque est saisi par l'utilisateur dans un champ de saisie (CheminDisque).

Pour cet exemple, nous considérons que l'utilisateur saisit le chemin complet du disque (par exemple A:).



--Code de clic sur BtnEspaceLibre
// Déclaration de la variable
ResEspaceLibre est un réel
// Espace libre disponible ?
ResEspaceLibre = fDisqueInfo (CheminDisque, fdEspaceLibre )
// Erreur ?
SI ResEspaceLibre <> 0 ALORS
   Info(ResEspaceLibre + "octets disponibles sur ce disque")
SINON
   // Affichage du message d'erreur
   Erreur(ErreurInfo( errMESSAGE ))
FIN