Basic] 파일, 디스크 크기 표현 함수 ( B ,KB, MB, GB, TB, FB )

베이직 함수로 작성한 컴퓨터 대 용량 단위 환산 함수 입니다.

Public Function GetSize(ByVal size As Variant) As String
'32비트보다 큰 값은 -> CVar(1024)*1024*1024*1024 와 같이사용
Const m As String = "B KBMBGBTBFB"
Dim i As Long
i = 1&
GetSize = size & Mid$(m, i, 2&)
Do While size >= 1024
  size = size / 1024
  i = i + 2&
Loop
GetSize = size & Mid$(m, i, 2&)
End Function