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
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.
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")
|
Copyright © 2013 CA.
Tous droits réservés.
|
|