Valide sous UNIX et Windows
Cette fonction crée un attribut entier dans un groupe existant d'un fichier MIF existant.
Cette fonction MIF et Inv présente le format suivant :
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
Indique le nom du fichier MIF dans lequel créer l'attribut Integer.
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.
Indique le nom de l'attribut.
Entier indiquant la valeur de l'attribut.
Indique la description de l'attribut.
Une fois qu'elle a réussi, la fonction renvoie l'ID de l'attribut dans le groupe du fichier MIF. Sinon, elle renvoie zéro.
Exemple : Fonction CreateMIFInteger
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")
|
Copyright © 2013 CA.
Tous droits réservés.
|
|