Valide sous UNIX et Windows
CreateMIFGroup crée un groupe dans un fichier MIF existant.
Format de la fonction :
CreateMIFGroup(Filename as string, Name as string, Description as string, Class as string) as integer
Indique le nom du fichier MIF dans lequel créer le groupe.
Indique le nom du groupe à créer.
Indique la description du groupe.
Indique la classe du groupe.
En cas de réussite, la fonction renvoie l'ID affecté au groupe dans le 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.
|
|