Valide sur les plates-formes NetWare, Symbian OS, UNIX, Windows et Windows CE
Les fonctions GetFileStoreFree, GetFileStoreSize et GetFileStoreUsage donnent respectivement l'espace libre, l'espace total et l'espace utilisé sur le système de fichiers en Ko.
Format des fonctions :
GetFileStoreFree(filename as String) as Integer
GetFileStoreSize(filename as String) as Integer
GetFileStoreUsage(filename as String) as Integer
Indique le chemin d'un fichier ou d'un répertoire et identifie le système de fichiers. Un système de fichiers a la signification habituelle sous UNIX. Sous Windows, il s'agit d'un lecteur.
Chaque fonction renvoie la quantité en Ko.
Exemple :
Cet exemple indique la taille, ainsi que l'espace utilisé et disponible de lecteur C:\.
Dim size, free, used As Integer
Dim TAB As Char
TAB = 0x0009
ClrScr()
size = GetFileStoreSize("c:\")
free = GetFileStoreFree("c:\")
used = GetFileStoreUsage("c:\")
Print("Capacité du lecteur c:\")
Print("Taille totale" + TAB + TAB + Str(size))
Print("Stockage libre" + TAB + Str(free))
Print("Stockage utilisé" + TAB + Str(used))
|
Copyright © 2014 CA Technologies.
Tous droits réservés.
|
|