Valide sous UNIX et Windows
CreateMIFString crée un attribut chaîne dans un groupe existant d'un fichier MIF existant également.
Format de la fonction :
CreateMIFString (Filename as String, Group as String, Name as String, Value as String, Description as String) as Integer
Indique le nom du fichier MIF dans lequel créer l'attribut chaîne.
Indique le groupe dans lequel l'attribut Chaîne 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.
Chaîne spécifiant la valeur de l'attribut.
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")
|
Copyright © 2014 CA Technologies.
Tous droits réservés.
|
|