前のトピック: GetFileSize - ファイル サイズを返す次のトピック: GetFileTime - ファイル作成日、最終アクセス日、または最終変更日を返す


GetFileStoreFree、GetFileStoreSize、および GetFileStoreUsage - 空き容量、総容量、および使用容量を返す

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
filename

ファイルまたはディレクトリのパスを識別し、ファイル システムを識別します。 ファイル システムは、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))