4D v16.3
VOLUME ATTRIBUTES
- 4D - Langage
-
- Documents système
-
- Présentation des documents système
- Append document
- CLOSE DOCUMENT
- Convert path POSIX to system
- Convert path system to POSIX
- COPY DOCUMENT
- CREATE ALIAS
- Create document
- CREATE FOLDER
- DELETE DOCUMENT
- DELETE FOLDER
- Document creator
- DOCUMENT LIST
- Document to text
- Document type
- FOLDER LIST
- GET DOCUMENT ICON
- Get document position
- GET DOCUMENT PROPERTIES
- Get document size
- Get localized document path
- MAP FILE TYPES
- MOVE DOCUMENT
- Open document
- RESOLVE ALIAS
- Select document
- Select folder
- SET DOCUMENT CREATOR
- SET DOCUMENT POSITION
- SET DOCUMENT PROPERTIES
- SET DOCUMENT SIZE
- SET DOCUMENT TYPE
- SHOW ON DISK
- Test path name
- TEXT TO DOCUMENT
- VOLUME ATTRIBUTES
- VOLUME LIST
VOLUME ATTRIBUTES
| VOLUME ATTRIBUTES ( volume ; taille ; utilisé ; libre ) | ||||||||
| Paramètre | Type | Description | ||||||
| volume | Chaîne |
|
Nom du volume | |||||
| taille | Réel |
|
Taille du volume exprimée en octets | |||||
| utilisé | Réel |
|
Place utilisée sur le volume exprimée en octets | |||||
| libre | Réel |
|
Place libre sur le volume exprimée en octets | |||||
La commande VOLUME ATTRIBUTES retourne la taille, la place utilisée et la place libre sur le volume dont le nom est passé dans volume. Ces valeurs sont exprimées en octets.
Note : Si volume indique un volume distant non monté, la variable OK prend la valeur 0 et les trois paramètres retournent -1.
Votre application comprend des opérations par lots qui sont exécutées la nuit ou pendant le week-end. Ces opérations stockent des fichiers temporaires sur disque. Pour que cette méthode soit aussi autonome et souple que possible, vous écrivez une routine qui va automatiquement chercher et utiliser le premier volume ayant de la place disponible pour les fichiers temporaires. Voici la méthode :
` 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
C_STRING(31;$0)
C_STRING(255;$vaNomDoc)
C_LONGINT($vlNbVolumes;$vlVolume)
C_REAL($1;$vlTaille;$vlUtilisé;$vlLibre)
C_TIME($vhDocRef)
` Initialiser le résultat de la fonction
$0:=""
` 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)
` Pour chaque 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>=($1+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
$0:=$taVolumes{$vlVolume}
$vlVolume:=$vlNbVolumes+1
End if
End if
End if
End for
End if
ON ERR CALL("")cette méthode projet est ajoutée à votre application, vous pouvez écrire :
$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
Produit : 4D
Thème : Documents système
Numéro :
472
Créé : 4D v6
4D - Langage ( 4D v16)
4D - Langage ( 4D v16.1)
4D - Langage ( 4D v16.2)
4D - Langage ( 4D v16.3)
