|

楼主 |
发表于 2020-5-24 09:47:38
|
显示全部楼层
你说的对,我也先尝试去理解了下,就是不太懂。我不是科班出生,遇到问题首先找度娘,可是能把GetFileSize说的比较透的,实在难找。网上看到的基本就是概念性的描述。我估计问题在如下模块中:
Private Sub Long2Size(ByVal LongLow As Long, ByVal LongHigh As Long, ByRef FileSize As Currency)
Dim Cutoff As Currency
Cutoff = 2147483647
Cutoff = Cutoff + 2147483647
Cutoff = Cutoff + 1
FileSize = Cutoff * LongHigh
If LongLow < 0 Then
FileSize = FileSize + (Cutoff + (LongLow + 1))
Else
FileSize = FileSize + LongLow
End If
End Sub
你能稍微进一步指点下吗? |
|