Vorheriges Thema: GetFileSize - Abrufen der DateigrößeNächstes Thema: GetFileTime - Abrufen des Datums der Erstellung, des letzten Zugriffs oder der letzten Änderung einer Datei


GetFileStoreFree, GetFileStoreSize und GetFileStoreUsage - Abrufen des freien, gesamten und belegten Speicherplatzes

Gültig für NetWare, Symbian OS, UNIX, Windows und Windows CE.

Die Funktionen "GetFileStoreFree", "GetFileStoreSize" und "GetFileStoreUsage" rufen jeweils die freie, die gesamte und die genutzte Speicherkapazität des Dateisystems in KB ab.

Funktionsformat:

GetFileStoreFree(filename as String) as Integer
GetFileStoreSize(filename as String) as Integer
GetFileStoreUsage(filename as String) as Integer
filename (Dateiname)

Gibt einen Datei- bzw. Verzeichnispfad sowie das Dateisystem an. Unter UNIX besitzt das Dateisystem die übliche Bedeutung. In Windows handelt es sich um ein Laufwerk.

Jede der Funktionen gibt die Speicherkapazität in KB zurück.

Beispiel:

In diesem Beispiel werden die Größe sowie der belegte und freie Speicherplatz von Laufwerk C:\ abgerufen.

Dim size, free, used As Integer
Dim TAB As Char
TAB = 0x0009
ClrScr()

size = GetFileStoreSize("c:\")
free = GetFileStoreFree("c:\")
used = GetFileStoreUsage("c:\")
Print("Verfügbarer Speicherplatz auf Laufwerk C:\")
Print("Gesamtgröße" + TAB + TAB + Str(size))
Print("Freier Speicherplatz" + TAB + Str(free))
Print("Belegter Speicherplatz" + TAB + Str(used))