# 为何会.........？？

Posted by 乙尘 on November 28, 1999 at 17:46:45:

---------- Start of Source Code ----------
Public Function GetTotalSpace(ByVal Path As String) As Long
Dim aa As Long
Dim SecPerClust As Long
Dim BytePerSec As Long, FreeClust As Long, totClust As Long

aa = GetDiskFreeSpace(Path, SecPerClust, BytePerSec, FreeClust, totClust)
GetTotalSpace = SecPerClust * BytePerSec * totClust

End Function
----------- End of Source Code -----------
为什么最多只能找到２ＧＢ....？？有人会吗？

- VB 杂货铺

Follow Ups: