VOLUME ATTRIBUTES

 // Méthode projet Chercher volume pour place
 // Chercher volume pour place ( Reel ) -> Alpha
 // Chercher volume pour place ( Place nécessaire en octets ) -> Nom du volume ou chaîne vide

 #DECLARE($space : Real) -> $result : Text
 C_STRING(255;$vaNomDoc)
 var $vlNbVolumes;$vlVolume : Integer
 var $vlTaille;$vlUtilisé;$vlLibre : Real
 var $vhDocRef : Time

 // Initialiser le résultat de la fonction
 $result:=""
 // Protéger toutes les opérations d'entrée/sortie par une méthode d'interruption d'erreur
 ON ERR CALL("METHODE ERREUR")
 // Obtenir la liste des volumes
 ARRAY STRING(31;$taVolumes;0)
 gErreur:=0
 VOLUME LIST($taVolumes)
 If(gErreur=0)
 // Si nous sommes sous Windows, ignorer les deux lecteurs de disquettes
  If(Sous Windows)
    $vlVolume:=Find in array($taVolumes;"A:\\")
    If($vlVolume>0)
     DELETE FROM ARRAY($taVolumes;$vlVolume)
    End if
    $vlVolume:=Find in array($taVolumes;"B:\\")
    If($vlVolume>0)
     DELETE FROM ARRAY($taVolumes;$vlVolume)
    End if
  End if
  $vlNbVolumes:=Size of array($taVolumes)
 // For each volume
  For($vlVolume;1;$vlNbVolumes)
 // Obtenir la taille, la place utilisée et la place libre
    gErreur:=0
    VOLUME ATTRIBUTES($taVolumes{$vlVolume};$vlTaille;$vlUtilisé;$vlLibre)
    If(gErreur=0)
 // Est-ce que la place libre est suffisante (plus 32K) ?
     If($vlLibre>=($space+32768))
 // Si oui, vérifier que le volume n'est pas verrouillé...
       $vaNomDoc:=$taVolumes{$vlVolume}+Char(Symbole séparateur)+"XYZ"+String(Hasard)+".TXT"
       $vhDocRef:=Create document($vaNomDoc)
       If(OK=1)
        CLOSE DOCUMENT($vhDocRef)
        DELETE DOCUMENT($vaNomDoc)
 // Si tout est ok, retourner le nom du volume
        $result:=$taVolumes{$vlVolume}
        $vlVolume:=$vlNbVolumes+1
       End if
     End if
    End if
  End for
 End if
 ON ERR CALL("")

 $vaVolume:=Chercher volume pour place(100*1024*1024)
 If($vaVolume#"")
 // Continuer
 Else
  ALERT("Un volume avec au moins 100 Mo d'espace libre est nécessaire !")
 End if