|
|
|
|
|
|
|
|
|
|
- Exemple 1 : Récupération des attributs d'un fichier
Exemple 1 : Récupération des attributs d'un fichier Le code suivant permet de connaître les attributs d'un fichier. // Déclaration et initialisation des variables
ResAttribut est une chaîne
CheminFichier est une chaîne
AttFichier est une chaîne = "Le fichier est :"
// Attributs du fichier ?
ResAttribut = fAttribut(CheminFichier)
SI ResAttribut <> "ERR" ALORS
SI Position(ResAttribut, "A") ALORS AttFichier = AttFichier + RC + ...
TAB + "- un fichier archive"
SI Position(ResAttribut, "C") ALORS AttFichier = AttFichier + RC + ...
TAB + "- un fichier compressé"
SI Position(ResAttribut, "D") ALORS AttFichier = AttFichier + RC + ...
TAB + "- un répertoire"
SI Position(ResAttribut, "H") ALORS AttFichier = AttFichier + RC + ...
TAB + "- un fichier caché"
SI Position(ResAttribut, "R") ALORS AttFichier = AttFichier + RC + ...
TAB + "- un fichier en lecture seule"
SI Position(ResAttribut, "S") ALORS AttFichier = AttFichier + RC + ...
TAB + "- un fichier système"
// Affichage des attributs du fichier
Info(AttFichier)
SINON
// Affichage du message d'erreur
Erreur(ErreurInfo(errMessage))
FIN
Documentation également disponible pour…
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|