GetDiskFreeSpace ( DiskName 〔, UnitofByte〕 )
Dim MBsize, Bsize MBsize = GetDiskFreeSpace ( "A:" ,MB ) Bsize = MBsize * 1024 *1024 MessageBox ( "FDの空き容量は"+ Bsize +"バイトです。" )