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.

Format de la fonction :

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.

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