Rubrique précédente: CreateMIFFile : Créer un fichier MIFRubrique suivante: CreateMIFInteger – Créer un attribut entier


CreateMIFGroup – Créer un groupe

Valide sous UNIX et Windows

CreateMIFGroup crée un groupe dans un fichier MIF existant.

Cette fonction MIF et Inv présente le format suivant :

CreateMIFGroup(Filename as string, Name as string, Description as string, Class as string) as integer
Nom de fichier

Indique le nom du fichier MIF dans lequel créer le groupe.

Nom

Indique le nom du groupe à créer.

Description

Indique la description du groupe.

Classe

Indique la classe du groupe.

Une fois qu'elle a réussi, la fonction renvoie l'ID affecté au groupe dans le fichier MIF. Sinon, elle renvoie zéro.

Exemple : Fonction CreateMIFGroup

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")