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 で量が返されます。
例:
この例のリストでは、ドライブ 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 © 2014 CA Technologies.
All rights reserved.
|
|