前のトピック: 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 で量が返されます。

例:

この例のリストでは、ドライブ 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))