Rubrique précédente: CreateMIFGroup – Créer un groupeRubrique suivante: CreateMIFString – Créer un attribut de type chaîne


CreateMIFInteger – Créer un attribut entier

Valide sous UNIX et Windows

Cette fonction crée un attribut entier dans un groupe existant d'un fichier MIF existant.

Format de la fonction :

CreateMIFInteger(Filename as string, Group as string, Name as string, Value as integer, Description as string) as integer 
CreateMIFInteger(Filename as string, Group as integer, Name as string, Value as integer, Description as string) as integer
Nom de fichier

Indique le nom du fichier MIF dans lequel créer l'attribut Integer.

Groupe

Indique le groupe dans lequel l'attribut Integer est créé. Il peut s'agir d'une chaîne indiquant le nom du groupe ou d'un nombre entier indiquant l'ID du groupe. L'ID est la valeur renvoyée à partir d'un appel à la fonction CreateMIFGroup.

Nom

Indique le nom de l'attribut.

Valeur

Entier indiquant la valeur de l'attribut.

Description

Indique la description de l'attribut.

En cas de réussite, la fonction renvoie l'ID de l'attribut dans le groupe du fichier MIF. Dans le cas contraire, elle renvoie zéro.

Exemple :

Dim Dir as String
Dim DriveFree as Integer

'Obtenir le répertoire
Dir = GetDirectory(3)
DriveFree = GetDiskFreeMB(3)

'Créer le fichier .MIF
CreateMIFFile(ComputerPath+"Disk.MIF","Inventaire de mon disque ","","")
CreateMIFGroup(ComputerPath+"Disk.MIF","Infos disque","Informations sur le disque","AMClass")
CreateMIFString(ComputerPath+"Disk.MIF","Info disque","Répertoire en cours",Dir,"Nom du répertoire")
CreateMIFInteger(ComputerPath+"Disk.MIF","Infos disque","Libre en Mo",DriveFree,"Mo libres")