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.
Le code suivant permet de connaître les différentes dates d'un fichier.
|
||
// Déclaration des variables
ResDateCréation est une chaîne ResDateModification est une chaîne ResDateAccès est une chaîne CheminFichier est une chaîne // Sélection d'un fichier CheminFichier = "C:\MesRépertoires\Fichier.txt" // Récupération des différentes dates d'un fichier ResDateCréation = fDate (CheminFichier, "", fCréation ) ResDateModification = fDate (CheminFichier, "", fModification ) ResDateAccès = fDate (CheminFichier, "", fAccès ) SI ResDateCréation <> "" ET ResDateModification <> "" ET ResDateAccès <> "" ALORS // Affichage des différentes dates du fichier Info("La date de création est : "+ResDateCréation+ RC +... "La date de modification est : "+ResDateModification+ RC +... "La date d'accès est : "+ResDateAccès) SINON // Affichage du message d'erreur si la récupération n'a pas été effectuée Erreur(ErreurInfo( errMESSAGE )) FIN
|
||
Le code suivant permet de modifier la date de création d'un fichier par la date système de la machine.
|
||
// Déclaration des variables
ResDateCréation est une chaîne ResDateSystème est une chaîne CheminFichier est une chaîne // Sélection d'un fichier CheminFichier = "C:\MesRépertoires\Fichier.txt" // Récupération de la date système sous forme AAAAMMJJ ResDateSystème = DateSys() // Modification de la date de création du fichier sélectionné ResDateCréation = fDate (CheminFichier, ResDateSystème, fCréation ) SI ResDateCréation <> "" ALORS // Affichage de la date de création Info("La date de création est à présent : "+ResDateCréation) SINON // Affichage du message d'erreur si la récupération n'a pas été effectuée Erreur(ErreurInfo( errMESSAGE )) FIN
|
||
Le code suivant permet de connaître les différentes dates d'un fichier.
|
||
// Déclaration des variables
ResDateCréation est une chaîne ResDateModification est une chaîne ResDateAccès est une chaîne CheminFichier est une chaîne = "\Mes Fichiers\Fichier.TXT" // Récupération des différentes dates d'un fichier ResDateCréation = fDate (CheminFichier, "", fCréation ) ResDateModification = fDate (CheminFichier, "", fModification ) ResDateAccès = fDate (CheminFichier, "", fAccès ) SI ResDateCréation <> "" ET ResDateModification <> "" ET ResDateAccès <> "" ALORS // Affichage des différentes dates du fichier Info("La date de création est : "+ResDateCréation+ RC +... "La date de modification est : "+ResDateModification+ RC +... "La date d'accès est : "+ResDateAccès) SINON // Affichage du message d'erreur si la récupération n'a pas été effectuée Erreur(ErreurInfo( errMESSAGE )) FIN
|
||
Le code suivant permet de modifier la date de création d'un fichier par la date système de la machine.
|
||
// Déclaration des variables
ResDateCréation est une chaîne ResDateSystème est une chaîne CheminFichier est une chaîne = "\Mes Fichiers\Fichier.TXT" // Récupération de la date système sous forme AAAAMMJJ ResDateSystème = DateSys() // Modification de la date de création du fichier sélectionné ResDateCréation = fDate (CheminFichier, ResDateSystème, fCréation ) SI ResDateCréation <> "" ALORS // Affichage de la date de création Info("La date de création est à présent : "+ResDateCréation) SINON // Affichage du message d'erreur si la récupération n'a pas été effectuée Erreur(ErreurInfo( errMESSAGE )) FIN
|