NetWare、Symbian OS、UNIX、Windows、および Windows CE で有効です。
GetFileStoreFree、GetFileStoreSize、および GetFileStoreUsage 関数では、ファイル システムの空き容量、総容量、および使用容量がそれぞれ KB で示されます。
これらの関数の形式は、以下のとおりです。
GetFileStoreFree(filename as String) as Integer
GetFileStoreSize(filename as String) as Integer
GetFileStoreUsage(filename as String) as Integer
ファイルまたはディレクトリのパスを識別し、ファイル システムを識別します。 ファイル システムは、UNIX の通常の意味で使用されます。 Windows では、ドライブです。
各関数では、KB で量が返されます。
例: GetFileStoreFree、GetFileStoreSize、および GetFileStoreUsage 関数
この例のリストでは、ドライブ C:¥ のサイズ、使用容量および空き容量が示されます。
Dim size, free, used As Integer
Dim TAB As Char
TAB = 0x0009
ClrScr()
size = GetFileStoreSize("c:¥")
free = GetFileStoreFree("c:¥")
used = GetFileStoreUsage("c:¥")
Print("Capacity of drive c:¥")
Print("Total size" + TAB + TAB + Str(size))
Print("Free storage" + TAB + Str(free))
Print("Used storage" + TAB + Str(used))
|
Copyright © 2013 CA.
All rights reserved.
|
|