Rubrique précédente: Fonctions de fichiers MIF et InvRubrique suivante: CreateMIFGroup – Créer un groupe


CreateMIFFile : Créer un fichier MIF

Valide sous UNIX et Windows

La fonction CreateMIFFile crée un fichier MIF.

Format de la fonction :

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

Indique le nom du fichier MIF.

Nom

Indique le nom du composant à stocker dans le fichier MIF.

Description

Indique la description à stocker dans le fichier MIF.

La valeur renvoyée par la fonction est un entier.

Exemple :

Cet exemple stocke le répertoire en cours sur C: dans un fichier MIF, avec l'espace disque disponible. Il est stocké dans le répertoire Workstation. Cet exemple fonctionne uniquement si CA Asset Management est installé.

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